Discussion :

[yaya_la_rafale]

Bonjour

j'ai un tableau avec plusieurs colonnes, notamment A et B.
Je souhaite retourner le numero de la ligne qui contient mes deux valeurs donc un "ET" dans ma condition.

ma condition est donc "colonne A contient toto" ET "colonne B contient tata"
Je prefererai ne pas faire de loop de tout le fichier car trop gros.

dans mon code si dessous, je ne sais faire que la premiere partie de ma condition, comment puis-je y integrer la seconde partie avec un ET (et pas un OU)

merci d'avance

Code :

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

1
2
3
4
5
6
Set FoundCell = monWs.Range("A:A").Find(what:="toto", lookat:=xlWhole)
If Not FoundCell Is Nothing Then
    MsgBox ("toto trouvé " & FoundCell.Row)
Else
    MsgBox ("toto pas trouvé")
End If

mais j'aurai voulu doubler ma condition
Colonne A = "toto" ET colonne B = "tata"
mais je n'arrive pas a faire ce ET dans ma condition.
quelqu"un a-t-il une idee ?

[pasdechances]

Coucou,

Code :

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

1
2
3
4
5
6
7
8
9
10
Set FoundCelltata = monWs.Range("B:B").Find(what:="tata", lookat:=xlWhole)
Set FoundCelltoto = monWs.Range("A:A").Find(what:="toto", lookat:=xlWhole)
 
If Not FoundCelltoto Is Nothing and not FoundCelltata  is nothing Then
    MsgBox ("toto et tata trouvé " & FoundCell.Row)
    MsgBox (" tata est en " & FoundCelltata.Row)
    MsgBox (" toto est en " & FoundCelltoto.Row)
Else
    MsgBox ("toto pas trouvé")
End If

PS : code pas tester

[yaya_la_rafale]

merci mais non cette option n'est pas valable pour moi

je peux avoir

Colonne A	Colonne B
toto	blahablh
toto	tata
zerzer	tata

or je ne veux retenir QUE la ligne 2 d'où le ET à ma condition

[SfJ5Rpw8]

le ET est respecté dans mon code

[pasdechances]

et oui Bbil est c'est le big master xD
souvient toi yaya_la_rafale

Code :

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

1
2
3
4
5
if x < y then 
    if y < z then
 
    end if
end if

c'est pareil que :

Code :

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

1
2
3
if x < y and y < z then
 
end if

et le OU c'est plutot çà :

Code :

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

1
2
3
4
5
6
if x < y then 
 
end if
if y < z then
 
end if

ou ça :

Code :

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

1
2
3
if x < y or y < z then
 
end if

[yaya_la_rafale]

merci bbil, je n'avais pas vu ta réponse.

Code :

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

IF FoundCell.Offset(0,1)="tata" then

mais où est-ce que je spécifie chercher tata sur la colonne B ?

[SfJ5Rpw8]

tu teste pas pour chaque colonne ou tu as trouvé toto en A tu regarde s'il y as tata dans la cellule présente colonne de droite Offset(0,1) soit la B..

[yaya_la_rafale]

génial ca marche bien.

mes vraies colonnes sont O et A ce qui est donc pour moi

Code :

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

cibleTrouve.Offset(0, -14)

j'aurai trouvé plus simple de nommer la colonne elle meme, mais bon génial comme ca !
merci beaucoup !

[SfJ5Rpw8]

Bonjour,

utilise Offset pour tester le contenu de ta colonne B..

Code :

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

1
2
3
4
5
6
7
8
Set FoundCell = monWs.Range("A:A").Find(what:="toto", lookat:=xlWhole)
If Not FoundCell Is Nothing Then
   IF FoundCell.Offset(0,1)="tata" then
    MsgBox ("toto et tata trouvé " & FoundCell.Row)
  end if
Else
    MsgBox ("toto pas trouvé")
End If