Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

dernière colonne saisie

  • Initiateur de la discussion Initiateur de la discussion louatt59
  • 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 !

L

louatt59

Guest
Bonjour j'ai plusieurs classeurs avec des données et un classeur de synthèse qui reprend les données des différents classeurs.

Mon problème est que la colonne ou la synthèse récupère les données, cette colonne st appelée à se déplacer vers la droite.

Est il possible en VBA d'aller chercher les données de la dernièr colonne sur la droite.?

Merci, cordialement,
 

Pièces jointes

Re : dernière colonne saisie

bonjour jean marcel voila j'essaye ce code mais il ne marche pas comme je voudrais.
Code:
Sub Macro3()

    Windows("RBS BL.xls").Activate
    DerColonne = ActiveSheet.UsedRange.Columns.Count
    Range("B3:B9").Select
    Selection.Copy
    Windows("Synthèse escadrille.xls").Activate
    Range("B3").Select
    ActiveSheet.Paste
    Range("A11").Select
    Application.CutCopyMode = False
End Sub

merci pour tes lumières
 
Re : dernière colonne saisie

Bonjour JeanMarcel, Jouatt.

Essaie :

Code:
 Windows("RBS BL.xls").Activate
   Range("B3:B9").Select
    Selection.Copy
    Windows("Synthèse escadrille.xls").Activate
    Range("IV3").End(xlToLeft).Offset(0,1)Select
    ActiveSheet.Paste
    Range("A11").Select
    Application.CutCopyMode = False
 
Re : dernière colonne saisie

bonjour et merci à vous, voila
Code:
Que souhaites tu faire exactement ?
Je cherche à recupérer les données d'un classeur "RBS BL.xls" (pour mon exemple c'est celui là mais j'en ai 6 en tout)et de recopier les résulats dans un classeur de synthèse. Mais la colonne de mes 6 classeurs sont appelés à evoluer par la suite vers la droite.

13GIBE59 merci également pour ton code ce dernier j'ai une erreur ici
Code:
Windows("RBS BL.xls").Activate
   Range("B3:B9").Select
    Selection.Copy
    Windows("Synthèse escadrille.xls").Activate
    [COLOR="Red"]Range("IV3").End(xlToLeft).Offset(0,1)Select[/COLOR]
    ActiveSheet.Paste
    Range("A11").Select
    Application.CutCopyMode = False

merci pour votre aide
 
Re : dernière colonne saisie

Désolé mais j'ai du mal a me faire comprendre voila ici les repports des différents classeurs.

Et je veux récupérer les données du classeur RBS BL , dans la feuille" ESSAI" les données de B3 à B9 (actuellement dans la colonne B mais cette dernière est appelé à évolué vers la droite c'est à dire qu'a un moment il va falloir récupérer les données de la cellules C et ainsi de suite.
 

Pièces jointes

- 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
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

Réponses
5
Affichages
700
  • Question Question
Microsoft 365 Bloccage Excel
Réponses
1
Affichages
399
W
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…