Bonjour =E0 tous, le but du code suivant est de compl=E9menter=20
les cellules d'une colonne. Le code fonctionne mais j'ai=20
un probl=E8me au niveau de la boucle.
La compl=E9mentation se fait en colonne E, et je voudrais=20
qu'elle s'arr=EAte lorsque en colonne B, il n'y ait plus=20
marqu=E9 "MANDATS".
Merci
Le code :
Sub Complementation()
Do
Range(Selection, Selection.End(xlDown).Offset(-1)).Select
Selection.FillDown
=20
Selection.End(xlDown).Select
Loop Until ActiveSheet.Range("B1").End(xlDown).Offset(1)=20
=3D "MANDAT"
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
marc loreau
salut franck
je en suis pas un crack en vba mais pourquoi n'essayes tu pas de faire un test sur chaque cellule avec un compteur du style :
Do Until Cells(I, 2)= "MANDAT" I = I + 1 Loop
pourquoi pas ?
salutations de marc
"Franck" a écrit dans le message de news: 02e201c37cf4$a417e640$ Bonjour à tous, le but du code suivant est de complémenter les cellules d'une colonne. Le code fonctionne mais j'ai un problème au niveau de la boucle.
La complémentation se fait en colonne E, et je voudrais qu'elle s'arrête lorsque en colonne B, il n'y ait plus marqué "MANDATS".
Merci
Le code :
Sub Complementation()
Do Range(Selection, Selection.End(xlDown).Offset(-1)).Select Selection.FillDown
Selection.End(xlDown).Select
Loop Until ActiveSheet.Range("B1").End(xlDown).Offset(1) = "MANDAT"
End Sub
salut franck
je en suis pas un crack en vba mais pourquoi n'essayes tu pas de faire un
test sur chaque cellule avec un compteur du style :
Do Until Cells(I, 2)= "MANDAT"
I = I + 1
Loop
pourquoi pas ?
salutations de marc
"Franck" <bernard@tolbiac.inserm.fr> a écrit dans le message de news:
02e201c37cf4$a417e640$a001280a@phx.gbl...
Bonjour à tous, le but du code suivant est de complémenter
les cellules d'une colonne. Le code fonctionne mais j'ai
un problème au niveau de la boucle.
La complémentation se fait en colonne E, et je voudrais
qu'elle s'arrête lorsque en colonne B, il n'y ait plus
marqué "MANDATS".
Merci
Le code :
Sub Complementation()
Do
Range(Selection, Selection.End(xlDown).Offset(-1)).Select
Selection.FillDown
Selection.End(xlDown).Select
Loop Until ActiveSheet.Range("B1").End(xlDown).Offset(1)
= "MANDAT"
je en suis pas un crack en vba mais pourquoi n'essayes tu pas de faire un test sur chaque cellule avec un compteur du style :
Do Until Cells(I, 2)= "MANDAT" I = I + 1 Loop
pourquoi pas ?
salutations de marc
"Franck" a écrit dans le message de news: 02e201c37cf4$a417e640$ Bonjour à tous, le but du code suivant est de complémenter les cellules d'une colonne. Le code fonctionne mais j'ai un problème au niveau de la boucle.
La complémentation se fait en colonne E, et je voudrais qu'elle s'arrête lorsque en colonne B, il n'y ait plus marqué "MANDATS".
Merci
Le code :
Sub Complementation()
Do Range(Selection, Selection.End(xlDown).Offset(-1)).Select Selection.FillDown
Selection.End(xlDown).Select
Loop Until ActiveSheet.Range("B1").End(xlDown).Offset(1) = "MANDAT"
