VBA XLS - effacer une cellule quand une liste change
apnart
Messages postés
2
Date d'inscription
jeudi 27 novembre 2003
Statut
Membre
Dernière intervention
18 septembre 2008
-
17 sept. 2008 à 16:48
dedenet2 Messages postés 372 Date d'inscription vendredi 27 juillet 2007 Statut Membre Dernière intervention 22 juillet 2013 - 18 sept. 2008 à 19:17
dedenet2 Messages postés 372 Date d'inscription vendredi 27 juillet 2007 Statut Membre Dernière intervention 22 juillet 2013 - 18 sept. 2008 à 19:17
A voir également:
- VBA XLS - effacer une cellule quand une liste change
- Vba copier valeur cellule dans une autre feuille ✓ - Forum Visual Basic 6
- Copier automatiquement une cellule excel dans une autre feuille (vba) - Forum Visual Basic
- Copier coller valeurs d'une feuille vers une autre feuille à partir de la premiè ✓ - Forum Visual Basic 6
- Vba mettre une valeur dans une cellule - Forum Visual Basic
- Selectionner la derniere cellule non vide d'une colonne excel vba - Forum Visual Basic 6
4 réponses
dedenet2
Messages postés
372
Date d'inscription
vendredi 27 juillet 2007
Statut
Membre
Dernière intervention
22 juillet 2013
2
17 sept. 2008 à 19:24
17 sept. 2008 à 19:24
Bonjour ,
Est ce que ta liste "validation" en A1 est tirée d'une plage ou
elle a été crée par programmation ?
Attend réponse
A+
Est ce que ta liste "validation" en A1 est tirée d'une plage ou
elle a été crée par programmation ?
Attend réponse
A+
dedenet2
Messages postés
372
Date d'inscription
vendredi 27 juillet 2007
Statut
Membre
Dernière intervention
22 juillet 2013
2
17 sept. 2008 à 20:19
17 sept. 2008 à 20:19
Re ,
Si la liste est tirée d'une liste:
-----------------------------------------------------------
Dim r As Range
Dim i As Integer
i = 0
For Each r In Range(Range("A1").Validation.Formula1)
If Range("a1").Value = r.Value Then
i = i + 1
End If
Next
If i = 0 Then
Range("A2") = ""
End If
---------------------------------------------------------------
A tester
A+
Si la liste est tirée d'une liste:
-----------------------------------------------------------
Dim r As Range
Dim i As Integer
i = 0
For Each r In Range(Range("A1").Validation.Formula1)
If Range("a1").Value = r.Value Then
i = i + 1
End If
Next
If i = 0 Then
Range("A2") = ""
End If
---------------------------------------------------------------
A tester
A+
apnart
Messages postés
2
Date d'inscription
jeudi 27 novembre 2003
Statut
Membre
Dernière intervention
18 septembre 2008
18 sept. 2008 à 12:46
18 sept. 2008 à 12:46
Merci pour ta réponse dedenet2
Je viens d'essayer, j'ai placé ton code dans la partie "Private Sub Worksheet_Change(ByVal Target As Range)", mais j'ai l'erreur :
Run-time '1004':
Method 'Range' of object'_Worksheet' failed
Si je clique sur debug, je tombe sur la ligne "For Each r In Range(Range("AQ3").Validation.Formula1)"
Je viens d'essayer, j'ai placé ton code dans la partie "Private Sub Worksheet_Change(ByVal Target As Range)", mais j'ai l'erreur :
Run-time '1004':
Method 'Range' of object'_Worksheet' failed
Si je clique sur debug, je tombe sur la ligne "For Each r In Range(Range("AQ3").Validation.Formula1)"
dedenet2
Messages postés
372
Date d'inscription
vendredi 27 juillet 2007
Statut
Membre
Dernière intervention
22 juillet 2013
2
18 sept. 2008 à 19:17
18 sept. 2008 à 19:17
Bonjour apnart ,
Mon code suppose que dans la cellule A1 , une liste deroulante est crée par la
methode "Validation".
Sur ta feuille ,il faut créer cette liste deroulante en AQ3
As tu crées cette liste deroulante ?
Sinon peut être montre ton code complet pour voir
A++
Mon code suppose que dans la cellule A1 , une liste deroulante est crée par la
methode "Validation".
Sur ta feuille ,il faut créer cette liste deroulante en AQ3
As tu crées cette liste deroulante ?
Sinon peut être montre ton code complet pour voir
A++
