Insertion automatique d'une valeur

[poussy67]

Bonjour le forum,

Ma question est il possible et comment d'insérer automatiquement une valeur par défaut en VBA. Lors d'une saisie dans la colonne A5, dans la colonne D5 insertion d'une valeur qui 999900 par défaut.

Cdt Poussy

ci joint un exemple:

 

[Pierrot93]

Re : Insertion automatique d'une valeur

Bonjour Poussy,

Dans ton exemple tu précises que les données sont saisies via un USF, mais à priori il n'y en a pas dans ton fichier. Si c'est le cas, je pense qu'il faut également renvoyer la valeur dans la colonne D en même temps que l'alimentation des autres cellules par ce même USF.

Sans plus de détails difficile de t'en dire plus...

bonne journée
@+

 

[GIBI]

Re : Insertion automatique d'une valeur

Bonjour,

ajoute une fonction dans ta feuille (via bouton droit sur l'onglet Visualiser code)

(exemple si saisie d'une valeur en colonne 1)

Private Sub Worksheet_Change(ByVal Cellule As Range)
If Cellule.Column <> 1 Then Exit Sub
'
If Cellule.Value <> "" Then
EnableEvents = False ' éviter de créer un événement change
Cells(Cellule.Row, 4).Value = "999900"
EnableEvents = True
End If
End Sub


Mais si tu utilise un userform tu le fais direstement dans le userform

GIBI

 

[poussy67]

Re : Insertion automatique d'une valeur

re bonjour

cela me convient parfaitement un grand Merci pour votre aide

cdt poussy