Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11

Problème de déplacement de groupe de cellues

12 réponses
Avatar
Guy72
Bonjour à tous
Quand je veux déplacer un groupe de cellules, j'ai le message suivant :



Erreur d'exécution « 13 » :

Incompatibilité de type.



En faisant « Débogage » dans le code suivant :

Private Sub Worksheet_Change(ByVal Target As Range)

If Target <> Range("C34") Then Exit Sub

Select Case [Target]

Case 1

Call iti1

Case 2

Call iti2

Case 3

Call iti3

Case Else

Call raz

End Select

End Sub



J'ai (If Target <> Range("C34") Then) qui est surligné en jaune.



Y a t-il une solution pour éviter ça ?

Merci de votre aide


Cordialement
Guy

2 réponses

1 2
Avatar
MichDenis
| Est-il possible que le bouton avec la flèche d'une liste déroulante puisse
| rester visible ?

Non. Tu peux toujours utiliser un vrai combobox pour afficher ta liste !



"Guy72" a écrit dans le message de news:
OiFQk$
Bonjour
Impeccable ça fonctionne.

Merci de ton aide

J'en profite pour te poser une autre question :

Est-il possible que le bouton avec la flèche d'une liste déroulante puisse
rester visible ?

Cordialement
Guy

"MichDenis" a écrit dans le message de news:

Essaie ceci :

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Target <> Range("C34") Then Exit Sub
Select Case [Target]
Case 1
Call iti1
Case 2
Call iti2
Case 3
Call iti3
Case Else
Call raz
End Select
End Sub




"Guy72" a écrit dans le message de news:

D'accord, mais que faut il modifier, ce sont des traits et je ne peut pas
faire autrement ?
Comment peut on changer un objet "Shape" en objet "range" ?
Cordialement
Guy

"AV" a écrit dans le message de news:
OA%
regarde avec mon fichier, peut être qu'il y a autre chose.


C'est parceque tes macros Cal xx sélectionnent un objet "Shapes" et non
un
objet range d'où l'erreur du "Selection.Count" au cours de la proc
évènementielle
Tu dois donc modifier là

AV









Avatar
Guy72
ok merci
Cordialement
Guy

"MichDenis" a écrit dans le message de news:

| Est-il possible que le bouton avec la flèche d'une liste déroulante
puisse
| rester visible ?

Non. Tu peux toujours utiliser un vrai combobox pour afficher ta liste !



"Guy72" a écrit dans le message de news:
OiFQk$
Bonjour
Impeccable ça fonctionne.

Merci de ton aide

J'en profite pour te poser une autre question :

Est-il possible que le bouton avec la flèche d'une liste déroulante puisse
rester visible ?

Cordialement
Guy

"MichDenis" a écrit dans le message de news:

Essaie ceci :

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Target <> Range("C34") Then Exit Sub
Select Case [Target]
Case 1
Call iti1
Case 2
Call iti2
Case 3
Call iti3
Case Else
Call raz
End Select
End Sub




"Guy72" a écrit dans le message de news:

D'accord, mais que faut il modifier, ce sont des traits et je ne peut pas
faire autrement ?
Comment peut on changer un objet "Shape" en objet "range" ?
Cordialement
Guy

"AV" a écrit dans le message de news:
OA%
regarde avec mon fichier, peut être qu'il y a autre chose.


C'est parceque tes macros Cal xx sélectionnent un objet "Shapes" et non
un
objet range d'où l'erreur du "Selection.Count" au cours de la proc
évènementielle
Tu dois donc modifier là

AV














1 2