Problème test If

[iguan]

Bonjour,

J'ai un problème sur mon test de cellule vide, je n'arrive pas a trouver la bonne syntaxe.

For i = 3 To 50
Compteur = 0
    For j = 1 To 20
    If IsEmpty(Feuil5.Cells(i, j)) Then
                                        Exit For
    Else: Compteur = Compteur + 1
    End If
    Next
If Compteur = 20 Then
                        Feuil5.Cells(i, 1) = NomEtape
                        Feuil5.Cells(i, 6) = i - 1
                        Feuil5.Cells(i, 13) = HeureIntercharge + MinuteIntercharge / 60
                        Feuil5.Cells(i, 15) = HeureCycle + MinuteCycle / 60
                        Exit For
End If
Next

Ma double boucle me permet de tester la ligne entierement vide (enfin jusqu'a la colonne 20). Et si tout est vide j'écris sur les différente cellule.

Merci d'avance
Cdt

PS: j'ai aussi essayer avec (Feuil5.Cells(i, j).Value = "") sa n'a pas marche non plus

 

[pierrejean]

Re : Problème test If

Bonjour iguan

Teste ceci

For n = 3 To 50
  If Application.WorksheetFunction.Sum(Range("A" & n & ":IV" & n)) = 0 Then
  ligne_vide = n
  Exit For
  End If
Next n
MsgBox (ligne_vide)

 

[Softmama]

Re : Problème test If

bonjour,
dans le cas où les cellules ne soient pas vide, mais que la somme fasse 0, tu peux tester :

For n = 3 To 50
  If Application.WorksheetFunction.counta(Range("A" & n & ":T" & n)) = 0 then msgbox "Ligne " & n & " vide !" 'T est la 20ème colonne
Next n

[Edit] : Houla, m'étais trompé de fonction

 

[iguan]

Re : Problème test If

bonjour Pierrejean,

Merci beaucoup pour ton bout de code, je ne comprend pas tout mais il marche très bien.

Cdt

Edit : Bonjour Softmama,
Sensiblement identique a celui de Pierrejean merci a toi aussi