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