Syntaxe for each + complement

[miguelangelo]

Bonjour à tous,

j'ai une lacune de langage certainement.

Voilà, dans un tableau plat avec un certain nombre de valeurs en colonne A (a1,a2,..a350) je veux que la macro prenne chacune des ces valeurs et lance une macro à chaque fois

seulement voilà, en colonne J, si la valeur de la cellule est "SCI" ou "fermée", je veux qu'il saute la ligne.

j'ai essayé ca :

For Each c In Range("a3:a350")

If c.Column + 10 = "SCI" Then GoTo suivant
If c.Column + 10 = "fermée" Then GoTo suivant
Application.Run "new_facture"
Range("b4") = c.Value
Application.Run "complement"
Application.Run "enregistrer_effacer"
suivant:
Next

Mais ca me les prends quand même.

Merci à vous

 

[pierrejean]

Re : Syntaxe for each + complement

bonjour miguelangelo

a tester

remplacer

If c.Column + 10

par

If c.offset(0,10)

 

[miguelangelo]

Re : Syntaxe for each + complement

Merci bcp pierrejean

 

[miguelangelo]

Re : Syntaxe for each + complement

Bonjour à tous

Voici un bout de code pour faire en sorte que la saisie se fasse automatiquement en fonction des valeurs présentes dans Range("a3:a350").

Seulement voilà je pensais que la fonction each s'arretait dès que plus de valeur.
c'est pas le cas. Est qu'il me manque qqchose ?

Merci à vous


Sub saisie_auto()

Dim y As Long
Dim z As String
y = 0
z = Sheets("calcul loyer").Range("m1").Value

For Each c In Range("a3:a350")

If c.Offset(0, 9) = "SCI" Then GoTo suivant
If c.Offset(0, 9) = "fermée" Then GoTo suivant
Application.Run "new_facture"
Range("b4") = c.Value
Application.Run "complement"
Application.Run "enregistrer_effacer"
y = y + 1
suivant:
Next
MsgBox "Le traitement est fini." & y & " factures ont été enregistrées pour un montant total de " & z & " €"

End Sub

 

[miguelangelo]

Re : Syntaxe for each + complement

je vais essayer ca
merci pour ta réponse jean marcel

 

[miguelangelo]

macro assez lourde, peut on l'alleger ??

au final voilà comment se présente ma macro. elle fonctionne.
mais je la trouve redondante ou lourde.

un avis ??


Dim info As String
Dim y As Long
Dim z As String
Dim reponse
y = 0
z = Sheets("calcul loyer").Range("m1").Value

info = InputBox(Prompt:= _
"Si vous Souhaitez lancer la création de factures par région, indiquer la région voulue. En laissant vide, toutes les régions seront générées.", _
Title:="Génération des factures par région")
If info = "" Then GoTo totale

Sheets("agences").Select
Range("a3").Select
For Each c In Range("a3:a" & Range("A65536").End(xlUp).Row)

If c.Offset(0, 1) <> info Then GoTo suivant
If c.Offset(0, 10) = "" Then GoTo suivant
If c.Offset(0, 9) = "SCI" Then GoTo suivant
If c.Offset(0, 9) = "fermée" Then GoTo suivant
Application.Run "new_facture"
Range("b4") = c.Value
Application.Run "complement"
Application.Run "enregistrer_effacer"
y = y + 1
suivant:
Next
MsgBox "Le traitement est fini." & y & " factures ont été enregistrées pour un montant total de " & z & " €"

End
totale:
reponse = MsgBox("Lancer la génération facture pour tous les CIA", vbYesNo, "Question")
If reponse = vbNo Then End
Sheets("agences").Select
Range("a3").Select
For Each c In Range("a3:a" & Range("A65536").End(xlUp).Row)

If c.Offset(0, 10) = "" Then GoTo suivant1
If c.Offset(0, 9) = "SCI" Then GoTo suivant1
If c.Offset(0, 9) = "fermée" Then GoTo suivant1
Application.Run "new_facture"
Range("b4") = c.Value
Application.Run "complement"
Application.Run "enregistrer_effacer"
y = y + 1
suivant1:
Next
MsgBox "Le traitement est fini." & y & " factures ont été enregistrées pour un montant total de " & z & " €"