Discussion :

[idemanz7]

Bonjour,
j'ai crée une Marco qui permet de remplir avec des croix (x) un calendrier annuel en se basant sur différentes compositions

Pièce jointe 355239

pour passer à ça :

Pièce jointe 355240

Quand j'appuie sur ma macro pour le remplissage elle remplie tous les lignes du tableau ( boucle for) ce qui est normal , ce que je souhaite, c'est remplir juste une ligne sélectionné par le curseur ( je sélectionne la ligne d'un client, ma macro remplie juste son calendrier) , mais j'arrive pas à m'en passer de la boucle for.

si il y a une proposition d'une solution avec une nouvelle macro créer, ça m'arrange aussi.


voilà un aperçu de mon code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
'début traitement
 
 
For NoLig = 8 To Split(FL1.UsedRange.Address, "$")(4)
   If (FL1.Cells(NoLig, 22) <> "") Then
 FL1.Cells(NoLig, 22) = ""
 
    End If
 
  Next NoLig
 
f = True
n = 0
 
 
For NoLig = 8 To Split(FL1.UsedRange.Address, "$")(4)
'test sur la saisie du Q (quotidien), jours précis, lundi vers dimanche ( combinaisons)

Les compositions

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If ((FL1.Cells(NoLig, 18) <> "" And FL1.Cells(NoLig, 21) <> "") Or (FL1.Cells(NoLig, 18) <> "" And FL1.Cells(NoLig, 11) <> "") Or (FL1.Cells(NoLig, 18) <> "" And FL1.Cells(NoLig, 12) <> "") Or (FL1.Cells(NoLig, 18) <> "" And FL1.Cells(NoLig, 13) <> "") Or (FL1.Cells(NoLig, 18) <> "" And FL1.Cells(NoLig, 14) <> "") ... etc

Je vous remercie d'avance pour votre précieux aide !

[Menhir]

Commence par :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

NoLig = Selection.Row

et supprime la ligne For et la ligne Next.

[idemanz7]

Commence par :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

NoLig = Selection.Row

et supprime la ligne For et la ligne Next.

Super ! c'est résolu j'ai crée une nouvelle macro avec NoLig= Selection.Row en virant la ligne "Next" et tous les lignes "For" comme t'as dit, ça marche je te remercie infiniment!
je partage le code avec vous :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
'début traitement
 
NoLig = Selection.Row
   If (FL1.Cells(NoLig, 22) <> "") Then
 FL1.Cells(NoLig, 22) = ""
 
    End If
 
 
 
f = True
n = 0
 
NoLig = Selection.Row
'test sur la saisie du Q, jours précis,lu vers di (leurs cobinaisons)
 
  If ((FL1.Cells(NoLig, 18) <> "" And FL1.Cells(NoLig, 21) <> "") Or (FL1.Cells(NoLig, 18) <> "" And FL1.Cells(NoLig, 11) <> "") Or (FL1.Cells(NoLig, 18) <> "" And FL1.Cells(NoLig, 12) <> "") Or (FL1.Cells(NoLig, 18) <> "" And FL1.Cells(NoLig, 13) <> "") Or (FL1.Cells(NoLig, 18) <> "" And FL1.Cells(NoLig, 14) <> "") Or (FL1.Cells(NoLig, 18) <> "" And FL1.Cells(NoLig, 15) <> "") Or (FL1.Cells(NoLig, 18) <> "" And FL1.Cells(NoLig, 16) <> "") Or (FL1.Cells(NoLig, 18) <> "" And FL1.Cells(NoLig, 17) <> "") ....