coord. cellule par balayage avec offset

skoobi

XLDnaute Barbatruc

• 27 Octobre 2007

• #2

Re : coord. cellule par balayage avec offset

Bonsoir,
essaye ceci:

Code:

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)

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 27 Octobre 2007

• #3

Re : coord. cellule par balayage avec offset

Bonjour Hervé

tu peux peut être faire comme ceci :

Code:

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...

 

Dernière édition: 27 Octobre 2007

Vote positif 0 Vote négatif

herve62

XLDnaute Barbatruc

• 27 Octobre 2007

• #4

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+

 

Pièces jointes

• coord_cel.xls

  26.5 KB · Affichages: 45

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 27 Octobre 2007

• #5

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.

 

Dernière édition: 27 Octobre 2007

Vote positif 0 Vote négatif