Bonjour
Je souhaiterais parcourir rapidement les cellules non vides d’une colonne.
J’ai nommé une colonne « Toto » et je souhaiterais, pour gagner du temps,
parcourir seulement les cellules non vide de cette colonne quelques chose du
style :
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
michdenis
Bonjour,
Essaie ceci :
Tu adaptes le nom de la feuille et de la plage de cellules. '------------------------------ Sub test() Dim Rg As Range, C As Range With Worksheets("Feuil1") Set Rg = Range("A1:A" & .Range("A65536").End(xlUp).Row) End With
For Each C In Rg.SpecialCells(xlCellTypeConstants, 23) 'le traitement pour chacune des cellules C Next End Sub '------------------------------
"StDonat" a écrit dans le message de groupe de discussion : Bonjour Je souhaiterais parcourir rapidement les cellules non vides d’une colonne. J’ai nommé une colonne « Toto » et je souhaiterais, pour gagner du temps, parcourir seulement les cellules non vide de cette colonne quelques chose du style :
For each not isempty(c) in range(« Toto »)…
Merci de votre aide
Bonjour,
Essaie ceci :
Tu adaptes le nom de la feuille et de la plage de cellules.
'------------------------------
Sub test()
Dim Rg As Range, C As Range
With Worksheets("Feuil1")
Set Rg = Range("A1:A" & .Range("A65536").End(xlUp).Row)
End With
For Each C In Rg.SpecialCells(xlCellTypeConstants, 23)
'le traitement pour chacune des cellules C
Next
End Sub
'------------------------------
"StDonat" <StDonat@discussions.microsoft.com> a écrit dans le message de
groupe de discussion : EB16EA4E-82C9-4275-843C-3192A8B2C2D5@microsoft.com...
Bonjour
Je souhaiterais parcourir rapidement les cellules non vides d’une colonne.
J’ai nommé une colonne « Toto » et je souhaiterais, pour gagner du temps,
parcourir seulement les cellules non vide de cette colonne quelques chose du
style :
Tu adaptes le nom de la feuille et de la plage de cellules. '------------------------------ Sub test() Dim Rg As Range, C As Range With Worksheets("Feuil1") Set Rg = Range("A1:A" & .Range("A65536").End(xlUp).Row) End With
For Each C In Rg.SpecialCells(xlCellTypeConstants, 23) 'le traitement pour chacune des cellules C Next End Sub '------------------------------
"StDonat" a écrit dans le message de groupe de discussion : Bonjour Je souhaiterais parcourir rapidement les cellules non vides d’une colonne. J’ai nommé une colonne « Toto » et je souhaiterais, pour gagner du temps, parcourir seulement les cellules non vide de cette colonne quelques chose du style :