Bonjours à tous!
Après plusieurs recherches sur différent forums, j'ai réussi à trouver une macro qui ajoute une ligne à la fin de mon tableau qui fonctionne mais elle m'ajoute une ligne à chaque fois que j'ouvre cette feuille.
Je n'ai toujours pas trouvé comment ajouter une ligne seulement si il reste une seul ligne vide. La colonne utilisé est la colonne b et la première ligne à remplir est la ligne 7.
Voici mon code
Merci d'avance pour votre aide!!
Après plusieurs recherches sur différent forums, j'ai réussi à trouver une macro qui ajoute une ligne à la fin de mon tableau qui fonctionne mais elle m'ajoute une ligne à chaque fois que j'ouvre cette feuille.
Je n'ai toujours pas trouvé comment ajouter une ligne seulement si il reste une seul ligne vide. La colonne utilisé est la colonne b et la première ligne à remplir est la ligne 7.
Voici mon code
Code:
Private Sub worksheet_activate()
Dim Ligne As Long
nlign = Range("B7").End(xlDown).Row + 1
MsgBox "Et voilà" & nlign
If IsError(Range("B7").End(xlDown).Row) Then
nlign = 7
Else
nlign = Range("B7").End(xlDown).Row + 1
End If
If Range("b7:b" & nlign).Value <> "" Then
Range("B7:b" & nlign).Select
[B1048576].End(xlUp).Select
Rows(nlign).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
End If
Range("b7").Select
End Sub
Merci d'avance pour votre aide!!