Ajouter des lignes et des colonnes
Bonsoir à tous,
Savez-vous comment je peux ajouter 3 lignes sous mon tableau à l'aide d'un bouton (VBA)?
Et aussi,
Savez-vous comment je peux ajouter 3 colonnes à la suite de mon tableau à l'aide d'un bouton (VBA) ?
Par contre, la mise en forme doit rester et doit être présente lors des boutons.
Pour les lignes, j'ai ce code là, mais cela ne me fait pas le travail demandé :
Sub Ajoutligne()
Dim shS As Worksheet 'Source
Dim shD As Worksheet 'destination
Dim rCh As Range ' Nom a chercher
Dim iDest As Integer 'Ligne de destination dans feuille
Set shS = ThisWorkbook.Worksheets("Valeurs") ' Feuille source
Set shD = ThisWorkbook.Worksheets("Grille de Poly-compétence") ' Feuille destination
Set rCh = shS.Range("A21") ' Cellule contenant le nom à chercher
On Error Resume Next 'Pour éviter les messages d'erreur sur recherche infructueuse
iDest = Application.WorksheetFunction.Match(rCh, shD.Range("A15"), 0)
On Error GoTo 0
If iDest = 0 Then 'Cas ou pas trouvé on rajoute une ligne
iDest = shD.Range("A10489").End(xlUp).Row + 1
End If
shS.Range("A21:AT23").Copy shD.Cells(iDest, "A15")
End Sub
Pourriez-vous m'aider, s'il vous plaît ?
Merci de votre aide et par avance,
Storm28
Bonjour Storm28,
Voici ton fichier modifié.
Cela convient-il a ton besoin?
Bons tests, bonne continuation.
Bonjour,
Merci de ton aide,
Maintenant, je voudrai faire la même chose pour ajouter des colonnes de la même manière (3 par 3 )
Pourriez-vous m'aider s'il vous plaît ?
Merci par avance,
Storm28
Bonjour Storm28,
On peut rajouter un bouton spécifique pour les colonnes. Mais celui-ci ne dépendra pas de la recherche d'un nom qui est dévolu aux lignes.
Il sera bien sur applicable sur le nombre de lignes du tableau en cours.
Je reprends le fichier transmis et l'adapte sous peu.
À suivre...
A nouveau,
Voici le fichier modifié pour tenir compte d'ajout sur 3 colonnes
Bons tests, bonne continuation.