Simplifier le code

**vincent59139** · 14/10/2013, 10h25

Bonjour à tous,

voila,je voulais savoir si cela etait possible
d'ameliorer mon code
sur une feuille, j'ai 10 boutons sur une ligne differente à chaque fois (ligne 9 à 19)
ce bouton ouvre un useform dans lequel il y a ceci comme 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
18
19
20
21
22
23
24
25
26
27
28
29
30
Private Sub Valider_Click()
 
  If CheckBox1.Value = True Then 'Si coché ...
       Range("f9") = "NOK"
    Else 'Si non coché ...
       Range("f9") = "OK"
    End If
 
  If checkbox2.Value = True Then 'Si coché ...
       Range("g9") = "NOK"
    Else 'Si non coché ...
       Range("g9") = "OK"
    End If
 
  If CheckBox3.Value = True Then 'Si coché ...
       Range("h9") = "NOK"
    Else 'Si non coché ...
       Range("h9") = "OK"
    End If
 
  If CheckBox4.Value = True Then 'Si coché ...
       Range("i9") = "NOK"
    Else 'Si non coché ...
       Range("i9") = "OK"
    End If
 
Range("j9").FormulaLocal = "=aujourdhui()"
Unload Me 'Fermeture
 
End Sub

donc j'ai actuellement 10 userform differents pour chacun de mes boutons pour chaque ligne.

ma question est simple
y a-t-il un autre moyen pour utiliser un seul userform pour tous mes boutons ?

Merci d'avance

**Daniel.C** · 14/10/2013, 12h05

Bonjour,

En changeant le nom de la feuille :

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
Private Sub Valider_Click()
 
For i = 1 To 10
    If Sheets("Feuil1").CheckBox1.TopLeftCell.Row = i + 8 Then 'Si coché ...
        Range("f9").Offset(, i - 1) = "NOK"
    Else 'Si non coché ...
        Range("f9").Offset(, i - 1) = "OK"
    End If
Next i
 
Range("j9").FormulaLocal = "=aujourdhui()"
Unload Me 'Fermeture
 
 
End Sub

**vincent59139** · 14/10/2013, 13h03

voici ma feuille, car j'ai rentré ton code, cela affiche des messages d'erreur et je ne crois pas que cela fasse ce que je veux.

sur le fichier tu vois, le principe qui faut que je reproduise pour toutes les lignes.

et j'aimerais utiliser un seul userform pour le bouton NOK plutot que t'en faire une 100 ene.

pareil pour le bouton OK et clear.

merci

**Daniel.C** · 14/10/2013, 13h43

Il est où, le bouton "Valider" ? et la macro qui va avec ?

**patricktoulon** · 14/10/2013, 14h05

Bonjour
je suis aller au plus simple
suprime les 2 emes bouton garde en 1 seul de chaque
garde le ok1 ,nok1,clear1 ect...

dans le module de tafeuille ta feuil CL33 es
remplace la macro
Private Sub OK1_Click()
par

Code :

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

1
2
3
4
5
6
7
8
Private Sub OK1_Click()
Range("f" & ActiveCell.Row & ":I" & ActiveCell.Row) = "OK"
'Range("F9") = "OK"
'Range("G9") = "OK"
'Range("H9") = "OK"
'Range("I9") = "OK"
Range("j" & ActiveCell.Row).FormulaLocal = "=aujourdhui()"
End Sub

voila pour les bouton de la feuille
maintenant dans le module du userform"CL33validation1 tu efface tout le code et tu met ceci:

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
18
19
20
21
22
23
24
25
26
27
28
29
30
Private Sub CommandButton1_Click()
 
  If CheckBox1.Value = True Then 'Si coché ...
       Range("f" & ActiveCell.Row) = "NOK"
    Else 'Si non coché ...
        Range("f" & ActiveCell.Row) = "OK"
    End If
 
  If CheckBox2.Value = True Then 'Si coché ...
        Range("g" & ActiveCell.Row) = "NOK"
    Else 'Si non coché ...
        Range("g" & ActiveCell.Row) = "OK"
    End If
 
  If CheckBox3.Value = True Then 'Si coché ...
       Range("h" & ActiveCell.Row) = "NOK"
    Else 'Si non coché ...
        Range("h" & ActiveCell.Row) = "OK"
    End If
 
  If CheckBox4.Value = True Then 'Si coché ...
        Range("h" & ActiveCell.Row) = "NOK"
    Else 'Si non coché ...
        Range("h" & ActiveCell.Row) = "OK"
    End If
 
 Range("j" & ActiveCell.Row).FormulaLocal = "=aujourdhui()"
Unload Me 'Fermeture
 
End Sub

maintenant tu fait pareil pour le deuxieme userform tu eface tout dans le module et tu met ceci:

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
18
19
20
21
22
23
24
25
26
27
28
29
30
Private Sub CommandButton1_Click()
 
  If CheckBox1.Value = True Then 'Si coché ...
        Range("f" & ActiveCell.Row) = "NOK"
    Else 'Si non coché ...
        Range("f" & ActiveCell.Row) = "OK"
    End If
 
  If CheckBox2.Value = True Then 'Si coché ...
        Range("g" & ActiveCell.Row) = "NOK"
    Else 'Si non coché ...
        Range("g" & ActiveCell.Row) = "OK"
    End If
 
  If CheckBox3.Value = True Then 'Si coché ...
        Range("h" & ActiveCell.Row) = "NOK"
    Else 'Si non coché ...
        Range("h" & ActiveCell.Row) = "OK"
    End If
 
  If CheckBox4.Value = True Then 'Si coché ...
        Range("i" & ActiveCell.Row) = "NOK"
    Else 'Si non coché ...
        Range("i" & ActiveCell.Row) = "OK"
    End If
 
 Range("j" & ActiveCell.Row).FormulaLocal = "=aujourdhui()"
Unload Me 'Fermeture
 
End Sub

voila tout simplement maintenant si tu veux modifier une ligne il te suffit de selectionner la ligne sur ta grille et cliquer sur le bouton de ton choix
voili voilou

je ne l'ai pas fait pour les bouton "clear..." je te laisse mediter quand a la marcha a suivre mais tu devrais saisir la chose tres vite a mon avis
Au plaisir

Re
je dirais meme que tu a besoins aue d'un seul de tes userforms maintenant

Au plaisir

Re
je revien aussi pour souligner une erreur de taille dans ton code

tu met a la validation ceci:

Code :

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

Range("j" & ActiveCell.Row).FormulaLocal = "=aujourdhui()"

hors si demain tu réouvre le fichier les dates seront mis a jour automatiquement donc ne corespondront plus au dates de controles réels

donc je remplacerais par ceci:

Code :

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

Range("j" & ActiveCell.Row).FormulaLocal = Date

ainsi la date inscrite sera fixe

Au plaisir
veux tu que je te renvoie un exemplaire de ton fichier corrigé???

**vincent59139** · 14/10/2013, 14h32

Daniel le bouton valider est dans l'userform du bouton NOK

**vincent59139** · 14/10/2013, 14h35

ta programmation est niquel,
c'est ce que je pensais faire au debut dans ce principe la,
mais il me faut pour chaque ligne les 3 boutons.

Donc si 100 lignes, 100 ok 100 nok et 100 clear. ce qui m'embete le plus c'est le bouton nok car je me vois pas faire 100 userform...

y a-t-il un moyen pour eviter sa ?

**patricktoulon** · 14/10/2013, 14h48

j'ai regardé de plus pret ton fichier dans son intégralité

je vois a peut pres ce que tu veux faire

en fait tu a besoins que du userform puis que par les checkbox tu gere le ok ou nok

donc tout tes boutons ne sont pas necessaires

je le remanie un peu avec une aide visuelle (selection de la ligne qui aparrait en rouge et redevient blanche quand on la quitte ) je reviens dans dix minutes

**vincent59139** · 14/10/2013, 15h03

en faite, je voudrais utiliser cela sur ma tablette ( compatible excel ^^)

comme cela, quand je fait les controle,
j'ai juste besoin d'appuyer sur ok quand tout est bon.
si j'ai un souci j'appuie sur nok
et si j'ai fait une erreur j'efface uniquement la ligne.

c'est pour cela, avec une tablette, je trouvais plus pratique et plus rapide d'avoir pour chaque point les 3 boutons.

**Daniel.C** · 14/10/2013, 15h50

Elle sais lire les macros, ta tablette ?

**patricktoulon** · 14/10/2013, 15h55

voila je me suis un peu amusé

tu a un seul userform

quand tu est sur une ligne elle deviens verte pour te montrer la ligne selectionnée

si tu veux cliquer ok pour tout tu valide sans rien toucher d'autre dans le userform

sinon tu selectionne les checkbox voulu
tu a un bouton page vierge
un bouton pdf
ect....
l'userform s'affiche juste apres les colonnes concernées tu a donc un regard permanent sur ta grille

regegarde essaie le et dis moi que c'est pas plus simple dis moi que c'est pas plus simple

**vincent59139** · 15/10/2013, 10h46

bon j'avoue,c'est niquel mis à part une chose ^^

comment faire lorsque je fais l'enregistrement PDF pour qu'il n'y a plus cette ligne verte dessus ^^ ( a part mettre la ligne verte ailleurs ^^)

sinon grand merci.

Simplifier le code

Macros et VBA Excel

Discussions similaires

Partager

Partager