Vous utilisez un navigateur obsolète. Il se peut que ce site ou d'autres sites Web ne s'affichent pas correctement. Vous devez le mettre à jour ou utiliser un navigateur alternatif.
Dans un premier temps je souhaiterais savoir comment faire pour compter un nombre de ligne entre deux cellules vide.
Ensuite je souhaiterais écrire un message autant de fois que le nombre trouvé lors de mon premier test.
Je vous envoie le fichier exemple pour mieux comprendre.
- Trouver la première cellule vide de la colonne A à partir de A5, on peut le faire via cette fonction
Code:
Sub cellulevide()
If Range("A5").Value = "" Then
Range("A5").Select
Else
If Range("A5").Value <> "" And Range("A6").Value = "" Then
Range("A5").Select
Else
Range("A5").End(xlDown).Offset(1, 0).Select
End If
End If
End Sub
- Trouver la première cellule vide de la colonne C à partir de C5 (via la même fonction)
- Compter le nombre de ligne entre ces deux colonnes (dans l'exemple il y en a 3)
- Selectionner la première ligne non vide en A (via le code donné précedemment et écrire bonsoir sur le nombre de ligne que l'on a trouvé (3 dans l'exemple)
Ce qui a pour conséquence d'écrire bonsoir en A8 A9 A10.
Bonjour k4RADOC, Bonjour Philippe
En une ligne peut être ?
VB:
Sub test()
With Sheets("Feuil1")
.Range(.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0), _
.Cells(Rows.Count, 3).End(xlUp).Offset(0, -1)).Value = "Bonsoir"
End With
End Sub
Salut Efgé,
Comme d'habitude tes réponses marchent du tonnerre ! Pour ma culture perso et si tu as le temps peut tu m'expliquer pas à pas ce que ton code fait ? Tant pis si tu n'as pas le temps ton aide ma déjà bien aidé.
Comme les Sheets("Feuil1") deviennent lourdes à la fin on utilise with / En With Tous les ranges et Cells précédés d'un point seront ratachés à ce With
VB:
With Sheets("Feuil1")
.Range(.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0), _
.Cells(Rows.Count, 3).End(xlUp).Offset(0, -1)).Value = "Bonsoir"
End With
Ne pas oublier de commencer par un sub Toto et de finir par un end Sub
Ce site utilise des cookies pour personnaliser le contenu, adapter votre expérience et vous garder connecté si vous vous enregistrez.
En continuant à utiliser ce site, vous consentez à notre utilisation de cookies.