Modification Macro VBA
Fermé
Fanaouer
-
15 avril 2019 à 11:54
eriiic Messages postés 24569 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 28 décembre 2023 - 15 avril 2019 à 14:29
eriiic Messages postés 24569 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 28 décembre 2023 - 15 avril 2019 à 14:29
2 réponses
cs_Le Pivert
Messages postés
7903
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
11 mars 2024
728
15 avril 2019 à 12:00
15 avril 2019 à 12:00
Bonjour,
voir sélectionner plage de cellules:
https://docs.microsoft.com/en-us/previous-versions/office/troubleshoot/office-developer/select-cells-rangs-with-visual-basic
voir sélectionner plage de cellules:
https://docs.microsoft.com/en-us/previous-versions/office/troubleshoot/office-developer/select-cells-rangs-with-visual-basic
eriiic
Messages postés
24569
Date d'inscription
mardi 11 septembre 2007
Statut
Contributeur
Dernière intervention
28 décembre 2023
7 213
Modifié le 15 avril 2019 à 14:31
Modifié le 15 avril 2019 à 14:31
Bonjour,
par défaut c'est ActiveSheet
ou
si elle est fixe et risque de ne pas être active.
Set Range1 = Application.Selection correspond à la sélection en cours. Donc c'est soit ça, soit un range fixe, pas les deux.
eric
Set Range1 = Range("C2:c10")
par défaut c'est ActiveSheet
ou
Set Range1 = Sheets("ta_feuille").Range("C2:c10")
si elle est fixe et risque de ne pas être active.
Set Range1 = Application.Selection correspond à la sélection en cours. Donc c'est soit ça, soit un range fixe, pas les deux.
eric
Modifié le 15 avril 2019 à 14:21
a cette endroit:
Set Range1 = Application.Selection
Set Range1 = ActiveSheet.Range("C2:c10").Select Application.InputBox("Range1 :", xTitleId, Range1.Address, Type:=8)
Set Range2 = ActiveSheet.Range("d2:D10").Select Application.InputBox("Range2:", xTitleId, Type:=8)
En supprimant ce qui est en italque.
Mais cela me dit qu'il manque un objet??