Discussion :

[sofian1]

Bonjour à tous,

Pouvez-vous me dire quelle est le problème sur ce VB sur excel (déso je suis novice dans la progrmmation).

Je vous remercie d'avance

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub TextBox10_Change()
    Dim Plage As String
 
    Plage = RefEdit1.Value
    'Vérifie s'il y a eu une sélection
    If Plage = "" Then
        MsgBox "Opération annulée"
        Exit Sub
    End If
 
    'Insère une croix dans toutes les cellules de la plage
    Range(Plage) = TextBox10.Value
End Sub

[Invité]

Bonjour,

Essayez :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
Private Sub TextBox10_Change()
 
    'Vérifie s'il y a eu une sélection
    If RefEdit1 <> "" Then
       'Insère le contenu dans toutes les cellules de la plage
        Range(RefEdit1.Value) = TextBox10.Value
    Else
      MsgBox "Sélectionnez les cellules !", vbCritical
    End If
 
End Sub

[Menhir]

Pouvez-vous me dire quelle est le problème sur ce VB sur excel (déso je suis novice dans la progrmmation).

Qu'est-ce qui te fait supposer qu'il peut y avoir un problème dans ce code ?