dernière colonne saisie

[louatt59]

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,

 

[louatt59]

Re : dernière colonne saisie

bonjour jean marcel voila j'essaye ce code mais il ne marche pas comme je voudrais.

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

 

[13GIBE59]

Re : dernière colonne saisie

Bonjour JeanMarcel, Jouatt.

Essaie :

 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

 

[louatt59]

Re : dernière colonne saisie

bonjour et merci à vous, voila

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

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

 

[13GIBE59]

Re : dernière colonne saisie

Flûte, j'ai oublié le point (.) juste avant Select :

[COLOR=#ff0000]Range("IV3").End(xlToLeft).Offset(0,1).Select[/COLOR]

 

[louatt59]

Re : dernière colonne saisie

re j'avais essyé de mettre un point en debut de ligne moi oupsss, Voila en pièce jointe ma feuille synthèse ou je dois récupérer les données de mes classeurs .

 

[louatt59]

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.