Discussion :

[manu789]

Bonjour,


J'ai un problème avec Find : si je cherche avec find une valeur qui se trouve dans la première cellule d'une plage, il ne la trouve pas.
Comment avec Find prendre en compte la première cellule de ma plage dés le début de le recherche ?
Note : si mes 2 premières cellule ont pour valeur 1, il s'arrête sur la seconde.

En plus si la première cellule à pour valeur 1, non seulement il ne la trouve pas et s'arrête sur la première cellule ayant pour valeur 10.



Pour illustrer mes propos je met un morceau de code.

Merci pour votre aide.

Et si qq'un avait un tuto qui explique tous les xlValue , xlWhol ..... ce serait sympa.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
 
Dim plaSemaine As Range
Set plaSemaine = Range("f" & celPremAnn.Row & ":" & "f" & celDerAnn.Row)  
MsgBox "Plage d'étude des semaine :  " & plaSemaine.Address
 
 
'*PLAGE DE CELLULE POUR Les Semaines *
Dim celPremSem As Range, celDerSem As Range, celDerSemDebut As Range
 
Dim intSemDebutBis As Integer, intSemFinBis As Integer
intSemDebutBis = 1
intSemFinBis = 8
Set celIncr = plaSemaine.Cells.Find(what:=intSemDebutBis) 'ATTENTION Find commence à la 2éme cellule de la plage
Set celPremSem = celIncr
MsgBox "premsem : " & celPremSem.Address
 
Set celIncr = plaSemaine.Cells.Find(what:=intSemFinBis) 'Cherche la premiere cellule correspondant à Semaine de Fin, mais il nous faut la derniere
Set celDerSemDebut = celIncr
'MsgBox "celDerSemDebut : " & celDerSemDebut.Address 'Première cellule de la semaine de fin
Do
Set celDerSem = celIncr 'prend la valeur avant qu'elle ne soit incrémenté et testée
Set celIncr = plaSemaine.Cells.FindNext(after:=celIncr) 'passe a la cellule suivante
 
Loop While celIncr.Address <> celDerSemDebut.Address And celIncr.Value = intSemFinBis
MsgBox "derniere cell semaine :  " & celDerSem.Address

[ouskel'n'or]

Jète un oeil à find, dans l'aide. Tu as plusieurs paramètres qui t'intéressent.
pour LookAt, tu dois mettre xlwhole, non xlpart pour chercher la totalité de la cellule et non 1 pour 10
Ensuite, tu mets plaSemaine.Cells.Find, ce qui représente la totalité de la feuille. Ne peux-tu pas préciser la colonne de la recherche ?
Enfin, pour trouver une donnée se trouvant sur la 1ère ligne de la colonne, tu dois te placer sur la première ligne d'une autre colonne
Ex :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Range("C1").select
Set celIncr = plaSemaine.Range("D1:D" & DerniereLigne).Find(what:=intSemFinBis)

pour une recherche dans la colonne D.
C'est l'un des deux cas où une sélection est nécessaire.
Bonne soirée.

[manu789]

Bonjour ouskel'n'or,

Merci pour le xlWhole.

Je ne recherche pas sur tout le document,
J'ai 3 colonnes : Annee, Semaine (col F), puis les donnees

Voici le code qui en fonction de la saisie dans de l'Annee défini la plage de cellule correspondante.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Dim plaSemaine As Range
Set plaSemaine = Range("f" & celPremAnn.Row & ":" & "f" & celDerAnn.Row)  
MsgBox "Plage d'étude des semaines :  " & plaSemaine.Address

Puis de la meme facon je determine la plage de cellule sur la colonne F qui correspond à la semaine de début & semaine de fin saisie par l'utilisateur.

Le HIC, c'est que la 1er ligne de cette nouvelle plage sera la semaine 1.

Donc si l'utilisateur fait le choix de cette semaine, la première cellule n'est pas prise en compte. Et le calcul ultérieur des données sera faux.

J'ai bien pensé à mettre "-1" lors de la définition de plaSemaine, mais ca fausse la définition de celDerSem.

Lorsque j'ai la plage de cellule des semaines, je la transpose sur la colonne des données et je fait une somme.

Voila, merci pour votre expertise à tous.

Manu

PS

Jète un oeil à find, dans l'aide. Tu as plusieurs paramètres qui t'intéressent.
pour LookAt, tu dois mettre xlwhole, non xlpart pour chercher la totalité de la cellule et non 1 pour 10

Existe il un totu qui définisse tous ces paramètres ?
J'avais regardé l'aide, mais les paramètres sont CITES et pas DEFINIS