Excel affecter macro a cellule
Résolu
marrrrrr
-
aquarelle Messages postés 7181 Date d'inscription Statut Modérateur Dernière intervention -
aquarelle Messages postés 7181 Date d'inscription Statut Modérateur Dernière intervention -
Bonjour a tous,
une nouvelle fois je sollicite votre aide =) Je vous explique mon probleme.
Jai une macro et je veux quelle fonctionne seulement lorsqu'on rempli une des cellules K4, K5 ou K6 de ma feuille "Inputs"
J'ai donc le code suivant
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$K$4" Then
Call start.start
End If
If Target.Address = "$K$5" Then
Call start.start
End If
If Target.Address = "$K$6" Then
Call start.start
End If
End Sub
Le probleme est que je voudrais que la macro ne se lance que lorsque je rempli une de ces cellules mais pas quand j'en efface le contenu...
Je compte sur vos lumiere, c'est un petit peu urgent :S
Cordialement
Marie
une nouvelle fois je sollicite votre aide =) Je vous explique mon probleme.
Jai une macro et je veux quelle fonctionne seulement lorsqu'on rempli une des cellules K4, K5 ou K6 de ma feuille "Inputs"
J'ai donc le code suivant
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$K$4" Then
Call start.start
End If
If Target.Address = "$K$5" Then
Call start.start
End If
If Target.Address = "$K$6" Then
Call start.start
End If
End Sub
Le probleme est que je voudrais que la macro ne se lance que lorsque je rempli une de ces cellules mais pas quand j'en efface le contenu...
Je compte sur vos lumiere, c'est un petit peu urgent :S
Cordialement
Marie
A voir également:
- Affecter une macro à une cellule
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Aller à la ligne dans une cellule excel - Guide
- Bloquer une cellule excel - Guide
- Excel cellule couleur si condition texte - Guide
- Jitbit macro recorder - Télécharger - Confidentialité
1 réponse
c'est bon jai reussi merci qd meme
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$K$4" Then
If Cells(4, 11) <> "" Then
Call start.start
End If
End If
If Target.Address = "$K$5" Then
If Cells(5, 11) <> "" Then
Call start.start
End If
End If
If Target.Address = "$K$6" Then
If Cells(6, 11) <> "" Then
Call start.start
End If
End If
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$K$4" Then
If Cells(4, 11) <> "" Then
Call start.start
End If
End If
If Target.Address = "$K$5" Then
If Cells(5, 11) <> "" Then
Call start.start
End If
End If
If Target.Address = "$K$6" Then
If Cells(6, 11) <> "" Then
Call start.start
End If
End If
End Sub
Surtout, merci à toi, pour nous avoir rapporté la solution que tu as trouvée toi même.
Peu, le font !
Bonne fin de journée