Amélioration de code VBA avec Offset
Résolu/Fermé
exceloffset
-
Modifié le 9 oct. 2017 à 10:17
gbinforme Messages postés 14946 Date d'inscription lundi 18 octobre 2004 Statut Contributeur Dernière intervention 24 juin 2020 - 10 oct. 2017 à 13:30
gbinforme Messages postés 14946 Date d'inscription lundi 18 octobre 2004 Statut Contributeur Dernière intervention 24 juin 2020 - 10 oct. 2017 à 13:30
A voir également:
- Amélioration de code VBA avec Offset
- Code ascii de a - Guide
- Code puk bloqué - Guide
- Code de déverrouillage oublié - Guide
- Code activation windows 10 - Guide
- Code gta 4 ps4 - Guide
2 réponses
gbinforme
Messages postés
14946
Date d'inscription
lundi 18 octobre 2004
Statut
Contributeur
Dernière intervention
24 juin 2020
4 714
9 oct. 2017 à 22:27
9 oct. 2017 à 22:27
Bonjour,
Que veux-tu faire réellement ?
de la ligne 550 à la ligne 950 décaler un certain nombre de colonnes vers la droite ?
Que veux-tu faire réellement ?
de la ligne 550 à la ligne 950 décaler un certain nombre de colonnes vers la droite ?
Bonjour,
Oui c'est bien ça. C'est très simple à faire sans macro mais je suis obligée de l'intégrer à mon code VBA.
Il doit donc sélectionner un certain nombre de colonnes et les décaler vers la droite.
Merci par avance
Oui c'est bien ça. C'est très simple à faire sans macro mais je suis obligée de l'intégrer à mon code VBA.
Il doit donc sélectionner un certain nombre de colonnes et les décaler vers la droite.
Merci par avance
gbinforme
Messages postés
14946
Date d'inscription
lundi 18 octobre 2004
Statut
Contributeur
Dernière intervention
24 juin 2020
4 714
10 oct. 2017 à 08:38
10 oct. 2017 à 08:38
Bonjour,
Il doit donc sélectionner un certain nombre de colonnes
et de lignes aussi je suppose ?
Tu les décales de 15 colonnes vers la droite ?
C'est une copie simple ou un déplacement avec effacement de la sélection ?
Il doit donc sélectionner un certain nombre de colonnes
et de lignes aussi je suppose ?
Tu les décales de 15 colonnes vers la droite ?
C'est une copie simple ou un déplacement avec effacement de la sélection ?
exceloffset
>
gbinforme
Messages postés
14946
Date d'inscription
lundi 18 octobre 2004
Statut
Contributeur
Dernière intervention
24 juin 2020
10 oct. 2017 à 09:03
10 oct. 2017 à 09:03
Bonjour,
Oui c'est en l'occurrence 400 lignes mais toutes les colonnes ne sont pas concernées ; je veux par exemple déplacer les colonnes B à E, G, K à L , etc.
Je ne les décale pas forcément de 15 colonnes ; le nouvel emplacement dépend de la colonne en question. 3 colonnes pour le B, 15 pour celles de K à L par exemple.
C'est un déplacement avec effacement de la sélection je pense (sans macro, je fais glisser les cellules vers la droite).
Ce qui me pose problème c'est que ma macro exécute l'action par ligne donc 400 fois la même chose..Alors que ca serait plus rapide par colonne.
Merci par avance et bonne journée
Oui c'est en l'occurrence 400 lignes mais toutes les colonnes ne sont pas concernées ; je veux par exemple déplacer les colonnes B à E, G, K à L , etc.
Je ne les décale pas forcément de 15 colonnes ; le nouvel emplacement dépend de la colonne en question. 3 colonnes pour le B, 15 pour celles de K à L par exemple.
C'est un déplacement avec effacement de la sélection je pense (sans macro, je fais glisser les cellules vers la droite).
Ce qui me pose problème c'est que ma macro exécute l'action par ligne donc 400 fois la même chose..Alors que ca serait plus rapide par colonne.
Merci par avance et bonne journée
gbinforme
Messages postés
14946
Date d'inscription
lundi 18 octobre 2004
Statut
Contributeur
Dernière intervention
24 juin 2020
4 714
Modifié le 10 oct. 2017 à 09:43
Modifié le 10 oct. 2017 à 09:43
Bonjour,
Si j'ai tout compris tu peux le faire ainsi
Tu mets les autres déplacement à la suite, mais attention quand l'on déplace des colonnes leur adressage change.
Si j'ai tout compris tu peux le faire ainsi
Application.InputBox(Prompt:="Dans la colonne A, sélectionnez les cellules ""téléphoné", Type:=8).Select Selection.Offset(0, 10).Resize(Selection.Rows.Count, 2).Cut Destination:=Selection.Offset(0, 25) '15 pour celles de K à L déplacées en Z:AA
Tu mets les autres déplacement à la suite, mais attention quand l'on déplace des colonnes leur adressage change.
exceloffset
>
gbinforme
Messages postés
14946
Date d'inscription
lundi 18 octobre 2004
Statut
Contributeur
Dernière intervention
24 juin 2020
10 oct. 2017 à 11:26
10 oct. 2017 à 11:26
T'es au top, merci ! C'est exactement ce que je cherchais !
gbinforme
Messages postés
14946
Date d'inscription
lundi 18 octobre 2004
Statut
Contributeur
Dernière intervention
24 juin 2020
4 714
10 oct. 2017 à 13:30
10 oct. 2017 à 13:30
Bonjour,
Merci du retour et bonne utilisation.
Merci du retour et bonne utilisation.