Description

Comment coller plusieurs fois la même ligne

**Automatiser des Tâches Répétitives sous Excel : Réponses à vos Questions**

Bonjour à tous,

Dans cet article, nous allons aborder trois questions fréquentes liées à l’automatisation de tâches sous Excel. Que vous soyez un utilisateur expérimenté ou un débutant, ces solutions vous aideront à rationaliser vos workflows et à gagner du temps.

**Question 1 : Répéter une Sélection en Fonction d’une Quantité**

Vous avez un bouton qui sélectionne une ligne et ouvre un UserForm pour demander la quantité. Vous souhaitez répéter cette sélection autant de fois que la quantité saisie. Pour cela, vous pouvez utiliser une boucle `For` dans le code du bouton. Voici un exemple :
« `vb
Private Sub Bouton_Click()
Dim quantite As Integer
quantite = InputBox(« Entrez la quantité »)

For i = 1 To quantite
‘ Code pour copier la sélection
Range(« A1:B2 »).Copy
‘ Code pour coller la sélection
Range(« A » & Rows.Count).End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlPasteValues
Next i
End Sub
« `
Remplacez `Range(« A1:B2 »)` par la plage de cellules que vous souhaitez copier et `Range(« A » & Rows.Count).End(xlUp).Offset(1, 0)` par la plage de cellules où vous souhaitez coller la sélection.

**Question 2 : Conserver une Valeur de Total avant de la Réinitialiser**

Vous avez un bouton sur chaque feuille pour remettre le total à zéro. Vous souhaitez conserver la valeur actuelle du total dans une variable et l’ajouter à chaque fois que le bouton est cliqué. Pour cela, vous pouvez déclarer une variable publique dans un module standard :
« `vb
Public totalCumule As Double
« `
Puis, dans le code du bouton :
« `vb
Private Sub Bouton_Click()
Dim totalActuel As Double
totalActuel = Range(« Total »).Value
totalCumule = totalCumule + totalActuel
Range(« Total »).Value = 0
End Sub
« `
Remplacez `Range(« Total »)` par la cellule qui contient le total.

**Question 3 : Nommer des Boutons en Fonction d’un InputBox**

Vous avez un bouton qui ouvre un InputBox et vous souhaitez attribuer le résultat de l’InputBox à un bouton vierge. Pour cela, vous pouvez utiliser une variable pour suivre le bouton actif :
« `vb
Private Sub Bouton_Click()
Dim nomBouton As String
nomBouton = InputBox(« Entrez le nom du bouton »)

Dim boutons As Object
Set boutons = Me.Controls
Dim boutonSuivant As Object
For Each bouton In boutons
If bouton.Type = « msoCommandButton » And bouton.Caption = «  » Then
bouton.Caption = nomBouton
Exit For
End If
Next bouton
End Sub
« `
Remplacez `Me.Controls` par la collection de contrôles de votre feuille.

En conclusion, ces solutions vous aideront à automatiser des tâches répétitives sous Excel et à rationaliser vos workflows. N’hésitez pas à poser d’autres questions ou à partager vos propres solutions dans les commentaires ci-dessous.

**Mots clés :** Excel, automatisation, tâches répétitives, UserForm, InputBox, bouton, sélection, total, conservation de valeur.

J’espère que cela vous aidera ! Si vous avez d’autres questions ou besoin d’aide supplémentaire, n’hésitez pas à me demander.