Selection de plages par vba

  • Initiateur de la discussion Initiateur de la discussion flo2002
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

flo2002

XLDnaute Impliqué
Bonjour le forum,
il y a bien longtemps que je n'étais pas venu vous ennuyez! lol
J'ai un petit soucis avec une macro:

j'ai des données qui sont ajouter en colonne E et je voudrais que les formules situé en ligne 9 en A😀 et F:AA vienne ce mettre sur les plages
A (premiere ligne vide en A) : D (derniere ligne pleine en E) et F (derniere ligne pleine de E) : AA premiere ligne vide de AA).
En espérant avoir été clair.
je vous remercie par avance!
 
Bonjour Flo2002

ci dessous 2 lignes de code qui pourront peut être t'aider, enfin je l espere ...

'première ligne vide
[a1].End(xlDown).Offset(1, 0).Value = 2
'dernière ligne pleine
[a65536].End(xlUp).Value = 2

bonne journée
 
Re bonjour,

je viens de faire un test sur un fichier et je n'arrive pas à mettre les deux dans range!

je ne vois pas comment lui dire de selection de premiere ligne vide à derniere ligne pleine.

J'ai entrer ce code pas trés beau qui ne fonctionne pas.

range([c1].end(xlDown).offset(1,0).value=2 : [C65536].end(xlup).value=2).select

merci par avance
 
re re bonjour,

j'ai beau essayer il ne veut rien entendre!

Sheets('Feuil1').Select
Dim Derligne1%, Derligne2%
Dim Exist
Derligne1 = Range('c1').End(xlDown).Offset(1, 0)
Derligne2 = Range('e65536').End(xlUp)


Range('d1:e1').Copy
Range('Derligne1', 'Derligne2').Select

ActiveSheet.Paste
Application.CutCopyMode = False

j'ai donc essayé de mettre un nom sur chaque coin de la selection mais ca bug toujours!

une idée?
merci
 
bonjour flo

As tu demandé au roi arthur ou à merlin de t'aider ? 🙂


peut etre comme ceci :

Dim Derligne1%, Derligne2%
Dim Exist


Sheets('Feuil1').Select

Derligne1 = Range('c1').End(xlDown).Row
Derligne2 = Range('e65536').End(xlUp).Row


Range('d1:e1').Copy
Range(Cells(Derligne1, 4), Cells(Derligne2, 5)).Select

ActiveSheet.Paste
Application.CutCopyMode = False


salut
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
20
Affichages
1 K
Réponses
5
Affichages
752
Réponses
7
Affichages
988
L
Réponses
1
Affichages
1 K
L
A
Réponses
4
Affichages
869
A
Retour