Discussion :

[andrekn13]

bonjour
je tourne en rond avec pleins de post que j' ai essayé pour poser 2 conditions
ex:

Code :

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

1
2
If UCase(.Cells(j, 1)) Like "*R*" & Gaz(L) & "*" And .Cells(j, 8) <> "" Then
 If Range("H17").Value Like "2014*" Then

séparément ces codes marchent

je récapitule sur un onglet des données ligne après ligne dans un tableau
qui dépendent de 2 conditions

condition 1 : qu'il ai entre la ligne 22 à 40 mots clés "R" avec 4 possibilités ' FOR placés avant et si la cellule de la 8ème colonne à un chiffre

condition 2 : que la feuille en H17 contient au debut 2014
voilà si quelqu'un au grand cœur sensible peut m' aider , cela fait depuis 26H que je tourne en rond, à chaque fois en pensait que je vais y arriver !

[defluc]

Bonjour,

Dans ton code, je ne trouve nulle part l'instruction

Code :

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

If Range("H17").Value Like "2014*" Then

De plus, il y a une erreur de compilation à la ligne 523 sur l'instruction

Code :

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

With WkB.Sheets(s).Range("H17").Value <> "ANNEE*".select