Redaction d'une Macro

Bonjour,

Je cherche un coup de pousse pour la rédaction des macros Userform.

Mes commandebutton sont sur la Feuil1 "Recap".

Avec le même Userform je souhaite renseigner et modifier les info de la feuil "Parc".

Merci d'avance

Bonjour,

Voici de quoi commencer

A+

Bonjour,

Un très grand merci, non pas pour le coup de pouce mais pour le coup de pied

Juste une petite chose, je ne peux pas mettre une recherche (dans Feuil "Parc sur A2:A500 ) à la place du menu déroulant pour le châssis. Et mettre 1 à la place de vrai, rien pour faux.

encore merci

Fred

Je ne peux pas mettre une recherche (dans Feuil "Parc sur A2:A500 ) à la place du menu déroulant pour le châssis. Et mettre 1 à la place de vrai, rien pour faux.

Tu peux effectivement remplacer la ComboBox par une TextBox et effectuer une recherche du n° de chassis sur Parc!A2:A500.

C'est un peu plus compliqué à mettre en oeuvre et tu seras obligé de gérer les erreurs de saisie éventuelles.

Pour ce qui est des contrôles cases à cocher, il te faut comprendre que les valeurs renvoyées sont :

Vrai (Lorsque la case est cochée)

Faux (Lorsque la case est décochée)

Tu peux éventuellement remplacer VRAI par la valeur -1 et FAUX par la valeur 0.

Il suffit pour cela de multiplier la valeur de la TextBox par 1.

Exemple de correction à apporter dans la procédure Valider_Click :

.Cells(Ligne, 3).Value = Me.CB_Bip * 1 'Bip

Par contre, si tu souhaites obtenir une valeur spécifique, il faudra l'inclure dans un test .

Exemple de correction à apporter dans la procédure Valider_Click :

if  Me.CB_Bip =True Then
     .Cells(Ligne, 3).Value = 1
else
     .Cells(Ligne, 3).Value = ""
end if

Il faut de plus, apporter le même type de correction dans la procédure Chassis_Change

if .Cells(Ligne, 3).Value = 1 Then
     Me.CB_Bip = True
else
     Me.CB_Bip = False
end if

A+

Merci pour ton aide cela ma permis de faire un autre formulaire seul.

Je commence à comprendre le langage VBA.

Merci