test valeur cellule

[gds35]

bonjour , mes AMIS du forum , BONNE ANNEE A TOUS,

Je cherche a tester la valeur d'une cellule , si elle est égale a 0,00 je sort de mon sub sinon je continue , imposssible d'y arriver , je tombe sur l'erreur " depasssement de capacité " . Etant nul j'ai chercher avec desillution plusieurs solution ss trouver . Je vous joint un p'tit fichier ou se trouve le dernier code écrit.

Merci de votre aide GDS35 Cordialement

 

[PascalXLD]

Re : test valeur cellule

Bonjour

essaies ainsi

Sub Macro1()
'
Dim i As Integer
Sheets("DONNEES").Select


For i = 2 To Range("G65536").End(xlUp).Row
If Range("G" & i) = 0 Then
Range("G" & i).Select
MsgBox ("Valeur = 0")
Exit Sub
End If
Next

'
End Sub

 

[kjin]

Re : test valeur cellule

Bonjour,
Comprends pas ton soucis, pourquoi faire simple....

Sub Macro1()
Dim i As Integer
With Sheets("DONNEES")
i = 2
TRT0911:
If .Range("G" & i) = 0 Then
.Range("G" & i).Select
MsgBox "Valeur = 0"
Exit Sub
Else
i = i + 1 'Ici comprends pas le +12 !!!
GoTo TRT0911
End If
End With
End Sub

A+
kjin

 

[PascalXLD]

Re : test valeur cellule

RE

sinon j'ajouterais évites les GOTO
c'est un vieux souvenir du basic mais en règle général on peut s'en passer en VBA
Bon WE

 

[gds35]

Re : test valeur cellule

Re bonjour , mes AMIS , merci de votre aide , je vais tester.
Je reponds a l'interrogation de KJIN , Pourquoi + 12 , simplement ce que je desire c'est a partir de la feuille données copier les lignes correspondantes a SEPT,OCT,NOV de 2005 a ++++ Années pour faire des stats. Il se trouve que le mois de SEPT est en Ligne 2 au depart en 2005 puis Lign + 12 en 2006 . Etc .... voila mon désir , et l'interrogation arreter la boucle si le CA est = à 0 en G ????? au fur et a mesure des exercices comptables. Merci de me dire si vous avez compris mon charabia
Cordialement Bon WE GDS35

 

[PascalXLD]

Re : test valeur cellule

Re

dans ma macro si tu veux aller de 12 en 12 tu ecris
à la place de

For i = 2 To Range("G65536").End(xlUp).Row


For i = 2 To Range("G65536").End(xlUp).Row step 12

 

[gds35]

Re : test valeur cellule

Merci a tous vous m'avez donne un serieux coup de main ca Marche super . J'ai un autre PB que j'evoque dans une nelle discussion. Bonne soirée encore MERCI
Cordialement GDS35