Problème test If

iguan · 7 Juillet 2011

Bonjour,

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

VB:

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 · 7 Juillet 2011

Re : Problème test If

Bonjour iguan

Teste ceci

Code:

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 · 7 Juillet 2011

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 :

VB:

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 · 7 Juillet 2011

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

Problème test If

iguan

XLDnaute Nouveau

pierrejean

XLDnaute Barbatruc

Softmama

XLDnaute Accro

iguan

XLDnaute Nouveau

Discussions similaires