Ligne incorrect, mais ou?

oui, desole xD

LOL, je pouvais vouloir t'aider autant que je veux j'étais pas rendu XD

oui, mais j'ai honte de dire l'erreur que j'ai faite... une erreur toute bete...

le code est celui la :

Sub present()

Dim i As Integer
Dim j As Integer
Dim k As Integer

k = 16
For i = 5 To 22
If Sheets("personnels").Cells(i, 2).Value = "NON" Then
j = k + 7
Sheets("relevé").Rows(k & ":" & j).Select
Selection.EntireRow.Hidden = True
End If
k = k + 8
Next

End Sub

Mais l'erreur etait For i = 4 To 22 au lieu de For i = 5 To 22 ...

LA HONTE xD

Merci quand meme =)

alors tu as trouvé quelle était l'erreur?

Humm... il me semble qu'une valeur precise de i marche.

Bon au moins on sait ou est le souci, c'est ton If qui déconne, continuons à isoler petit à petit pour essayer de trouver l'erreur.
Il faut donc tester séparément le nom de la feuille (en mettre une autre qui existe) et tenter avec une valeur précise pour i.
Finalement, tester ces deux choses en même temps si il y a toujours souci

j'ai changé le code, ca marche mieux, masi pas completement:

Sub present()

Dim i As Integer
Dim j As Integer
Dim k As Integer

k = 16
For i = 4 To 22
If Sheets("personnels").Cells(i, 2).Value = "NON" Then
j = k + 7
Sheets("relevé").Rows(k & ":" & j).Select
Selection.EntireRow.Hidden = True
End If
k = k + 8
Next

End Sub

le problème, c'est qu'il me reste à la fin, un oui, non, non...

oui je suis sur du nom ;), et non, je prefere pas changer le nom, parce que sinon, je dois rechanger loes formules d'une quinzaine de feuille :s

question con, tu es sur du nom de la feuille où tu fais tes tests? Essaye un nom sans accents aussi, des fois ça peut faire bugger

Après plusieurs essai: il ne rentre pas dans le IF...

ta macro dans un autre classeur fonctionne.. Cela doit venir des formules alors.

Le truc, c'est que mes formules sont sencés afficher une valeur d'une autre feuille...

ça peut venir de la, réessaye de ton coté en ouvrant un nouveau classeur et en copiant le If que j'ai fait.
Après ce que je voulais dire pour savoir ou tu écrivais ta macro, c'était plutot si tu l'écrivait dans une feuille du document ou dans Thisworkbook.
J'ai testé en écrivant dans ThisWorkBook, je vais tester dans une feuille la
EDIT: ça change rien la page ou est écrite la macro

Euh, dans un module. Ca peut influer?

Et pour moi If Sheets("Feuil1").Cells(2, 2).Value = "" Then
ne marche pas, j'avais deja essayé. Alors est-ce que ca viens de mes cellules ou il y a des formules mathématique dedans?

J'ai trouvé! j'ai mis le temps mais j'ai trouvé.

dans ton premier post, tu mets:
If Sheets("relevé").Cells(i, 2).Text = "" Then

Or je viens de tester avec un cas en dur, il faut mettre Value à la place de Text et ça fonctionne. Précisément, en test j'ai écrit dans un classeur vide:

If Sheets("Feuil1").Cells(2, 2).Value = "" Then
MsgBox "dommage"
End If

Et ça a fonctionné. Par contre question existentielle et dont je ne suis pas sur que ça ait de l'influence, ta macro du l'écrit ou? je veux dire dans quelle feuille?

Bienvenu au club ;)

C'est quand meme bizarre, parce que la, je commence a avoir l'impression qu'il detecte pas les cellules vides...

C'est étonnant qu'avec IsNull ça marche pas... la je dois te dire que si cette fonction marche pas je sèche un peu

ba j'ai utilisé un .value aussi, mais ca ne marche pas.

If !(Sheets("relevé").Cells(i, 2).Text) Then ne marche pas, il me dis avec des crochets :
If ![Sheets("relevé").Cells(i, 2).Text] Then
Mais une erreur apparait:

"Erreur de compilation: reference incorrct ou non qualifié"

Que pasa? ^^'

je ne comprend pas la...

Je suis pas sur mais c'est peut être ton .Text qui gène.

Maintenant à ta place je mettrais une vérification d'existence plutot que =""
J'ai plus le nom en tête mais pour faire une comparaison avec le C, ça donnerait dans le genre

If !(Sheets("relevé").Cells(i, 2).Text) Then

j'ai bien tester, c'est comme en C, le probème, c'ets qu'il me met: "erreur de compilation: expression attendue" et me surligne le deuxieme "=".

tout simplement que pour effectuer un test il faut un double égal (==)
Le simple égal est une attribution de variable, donc normal qu'il comprenne pas en fait :)
Pour lui tu fais aucune opération dans ton If, juste une attribution

If Sheets("relevé").Cells(i, 2).Text == "" Then