Discussion :

[Kestion100]

Bonjour,
Je souhaiterais récupérer le numéro de la première ligne dont le texte commence par 078, j'utilise:

Code :

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

1
2
3
4
5
 
DerLig As Double, PremCritr As Double, DerCRTIR As Double
 
DerLig = Sheets("ANNUAIRE").Range("A" & Rows.Count).End(xlUp).Row
PremCritr = Sheets("ANNUAIRE").Range("A1:A" & DerLig).Find("078*", LookIn:=xlValues, lookat:=xlPart).Row

Qui me renvoie les numéros de ligne pour toute occurrence de 078 dans la cellule sans tenir compte du fait que je voudrais exclusivement 078XXXXX.
Idem si je remplace

Code :

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

*

par des

Code :

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

?

.

Je pense que la manip doit être possible?????

MERCI POUR TOUT COUP DE MAIN

[patricktoulon]

re
essaie plutôt autofilter "commence par" ce sera plus facile non tu aura tes lignes d'un seul coup

[Kestion100]

En partant de ton conseil:

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
 
Private Sub UserForm2_Initialize()
 
 
DerLig As Double, PremCritr As Double, DerCRITR As Double
 
DerLig = Sheets("ANNUAIRE").Range("A" & Rows.Count).End(xlUp).Row
Sheets("ANNUAIRE").Range("A2").AutoFilter Field:=2, Criteria1:="078*"
PremCritr = Sheets("ANNUAIRE").Range("B2:B" & DerLig).SpecialCells(xlCellTypeVisible).Row
 
 
Sheets("ANNUAIRE").ShowAllData
 
Sheets("ANNUAIRE").Range("B2").AutoFilter Field:=2, Criteria1:="101*"
DerCRITR = Sheets("ANNUAIRE").Range("B2:B" & DerLig).SpecialCells(xlCellTypeVisible).Row
 
Sheets("ANNUAIRE").ShowAllData

PARFAIT