coord. cellule par balayage avec offset

[herve62]

Bonsoir

J'ai l'instruction suivante :

Set x = Range("4:4").Find("Dupont", , xlValues, xlWhole, , , False)

qui me permet de determiner la cellule sur toute la ligne 4 ou se trouve "Dupont"
Que faut t-il faire pour sauter des colonnes par exemple de 5 en 5
Lorsque l'instruction demarre en A4 la cellule suivante explorée sera en F4 puis K4 .. etc
Dans l'exemple ci-dessus : Range("4:4"). .... , peut-on demarrer autre que en A4 ? ex: D4

Merci
Hervé

 

[skoobi]

Re : coord. cellule par balayage avec offset

Bonsoir,
essaye ceci:

Dim palge As Range, x As Range
Set plage = Range("d4")
For i = 9 To 104 Step 5
    Set plage = Union(plage, Cells(4, i))
Next
Set x = plage.Find("Dupont", , xlValues, xlWhole, , , False)

 

[Pierrot93]

Re : coord. cellule par balayage avec offset

Bonjour Hervé

tu peux peut être faire comme ceci :

Sub test()
Dim x As Range, i As Byte
For i = 1 To Range("IV4").End(xlToLeft).Column Step 5
    Set x = Cells(4, i).Find("Dupont", , xlValues, xlWhole, , , False)
    If Not x Is Nothing Then MsgBox x.Address(0, 0)
End Sub

bonne soirée
@+

Edition bonsoir Skoobi, plus rapide...

 

[herve62]

Re : coord. cellule par balayage avec offset

Bonsoir Pierrot & Skoobi

Merci de vos réponses ( surtout un samedi soir !! )

Pierrot : je crois que c'est toi qui m'avais donné la 1ere instruction

J'ai mis vos codes dans le fichier : Skooby ça marche
Pierrot : Non ( j'ai rajouté le next manquant ) à toi de voir
Au moins j'aidéjà une solution
Au fait c'est quoi : RANGE ("IV4") ??? j'ai déja vu aussi IV2
Merci encore !! , bon !! c'est l'heure de l'apéro

A+

 

[Pierrot93]

Re : coord. cellule par balayage avec offset

Re

oui effectivement manquait le "Next i", désolé...

bonne soirée
@+

edition : range("IV4").End(xlToLeft).Column, te permet de localiser la dernière colonne de la ligne 4 où se trouve une donnée. IV est la dernère colonne, enfin jusqu'à 2003, 2007 en a plus de 60000 me semble t il.