If not Intersect sur plusieurs colonnes
Résolu
touroul
Messages postés
518
Statut
Membre
-
touroul Messages postés 518 Statut Membre -
touroul Messages postés 518 Statut Membre -
Bonsoir le forum !
Dans une macro, je souhaite déclencher une commande seulement dans certaines colonnes.
Ici en exemple, colonnes A et B, la commande est un Msgbox.
Mais Excel montre son désaccord par un vilain 'Erreur 424, objet requis".
Puis-je vous demander un peu d'aide sur mon erreur svp ?
Merci par avance
Dans une macro, je souhaite déclencher une commande seulement dans certaines colonnes.
Ici en exemple, colonnes A et B, la commande est un Msgbox.
Sub Mamacro()
Dim rng As Range
With ActiveSheet
Set rng = Union(Columns("A:A"), Columns("C:C"))
If Not Intersect(Target, rng) Is Nothing Then
Msgbox("Match")
End If
End With
End Sub
Mais Excel montre son désaccord par un vilain 'Erreur 424, objet requis".
Puis-je vous demander un peu d'aide sur mon erreur svp ?
Merci par avance
Configuration: Windows / Excel 365
A voir également:
- If not intersect vba
- Not able to play iron tv ✓ - Forum TV & Vidéo
- Vba attendre 1 seconde ✓ - Forum VB / VBA
- Dépassement de capacité vba ✓ - Forum Excel
- Input signal not found ✓ - Forum Matériel & Système
- Input not supported - Forum Ecran
4 réponses
Bonsoir touroul
Je ne comprends pas l'utilité de ton If ...
Il n' y a pas besoin de condition, si tu veux remplacer les points uniquement dans les colonnes A et C il suffit de les sélectionner avec Union puis d'appliquer le remplacement à la sélection
Cdlmnt
Via
Je ne comprends pas l'utilité de ton If ...
Il n' y a pas besoin de condition, si tu veux remplacer les points uniquement dans les colonnes A et C il suffit de les sélectionner avec Union puis d'appliquer le remplacement à la sélection
Union(Columns("A:A"), Columns("C:C")).Select
Selection.Replace What:=".", Replacement:=".", LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
Cdlmnt
Via
Bonjour Le Pivert
Merci pour ta réponse.
J'ai corrigé mes guillemets mal placées.
Cependant, ce n'est toujours pas ça.
Ma macro se lance depuis un bouton et non en Worksheet_SelectionChange.
Ça donne ça : (en fait la macro remplace les points par des virgules dans les colonnes concernées) :
Toujours 'Erreur 424, objet requis"
Merci pour la suite :)
Merci pour ta réponse.
J'ai corrigé mes guillemets mal placées.
Cependant, ce n'est toujours pas ça.
Ma macro se lance depuis un bouton et non en Worksheet_SelectionChange.
Ça donne ça : (en fait la macro remplace les points par des virgules dans les colonnes concernées) :
Sub Mamacro()
With ActiveSheet
If Not Application.Intersect(Target, Range("A:A,C:C")) Is Nothing Then
Cells.Replace What:=".", Replacement:=".", LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
End If
End With
End Sub
Toujours 'Erreur 424, objet requis"
Merci pour la suite :)
