Discussion :

[cecile1234]

Bonjour,

Aprés avoir chercher pendant longtemps je ne parviens pas à trouver le code suivant, si quelqu'un a un peu de temps pour regarder, ca m'aiderait beaucoup
1) Quel est le code pour selectionner et copier la derniére cellule non vide d'une ligne précise ? (Ligne 12 de la feuille F2)
2) Quel est le code pour coller cette cellule dans la premiére cellule vide d'une ligne précise d'une autre feuille ? ( Ligne 45 de la Feuille F1, en partant de la colonne Q)


Pour le deuxième point j'avais trouvé cette macro mais lorsqu'il s'agit d'y coller la valeur copiée au préalable elle ne fonctionne pas :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
  Sheets("F1").Select
    Range("Q45").Select
  ActiveCell.Offset(0, 1).Select
    Do While Not IsEmpty(ActiveCell)
        ActiveCell.Offset(0, 1).Select
 
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
    Loop

Je vous remercie d'avance pour votre aide,

Bonne journée

[Marc-L]

Bonjour,

un bon code ne sélectionne pas !

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

    Worksheets("F2").Cells(12, Columns.Count).End(xlToLeft).Copy Worksheets("F1").Cells(45, Columns.Count).End(xlToLeft)(1, 2)

_________________________________________________________________________________________________________

Merci de cliquer sur pour chaque message ayant aidé puis sur pour clore cette discussion …

_________________________________________________________________________________________________________

Je suis Paris, Charlie, Bruxelles, …

[cecile1234]

Bonjour,

un bon code ne sélectionne pas !

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

    Worksheets("F2").Cells(12, Columns.Count).End(xlToLeft).Copy Worksheets("F1").Cells(45, Columns.Count).End(xlToLeft)(1, 2)

_________________________________________________________________________________________________________

Merci de cliquer sur pour chaque message ayant aidé puis sur pour clore cette discussion …

_________________________________________________________________________________________________________

Je suis Paris, Charlie, Bruxelles, …

Je te remercie, ton code fonctionne très bien cependant la valeur que je copie en F2 en ligne 12 est une formule, comment puis-je la coller en valeurs ?

Merci beaucoup

[Menhir]

comment puis-je la coller en valeurs ?

Dans mon code, tu remplaces xlPasteAll par xlPasteValue.

[cecile1234]

Dans mon code, tu remplaces xlPasteAll par xlPasteValue.

Merci pour ta réponse, j'ai essayé avec ton code qui fonctionne très bien mais avec xlPasteValue, la macro ne s'execute pas (: erreur 1004 : erreur dans la méthodologie PasteSpecial pour la classe Range )

[Menhir]

Merci pour ta réponse, j'ai essayé avec ton code qui fonctionne très bien mais avec xlPasteValue, la macro ne s'execute pas (: erreur 1004 : erreur dans la méthodologie PasteSpecial pour la classe Range )

J'ai oublié un "s" à xlPasteValues.
Cela dit, rien ne t'interdit de travailler aussi un peu en allant regarder dans l'aide VBA pour débuguer par toi-même.

[Marc-L]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

    Worksheets("F1").Cells(45, Columns.Count).End(xlToLeft)(1, 2).Value = Worksheets("F2").Cells(12, Columns.Count).End(xlToLeft).Value

Et ne pas oublier l'usage du forum :

_________________________________________________________________________________________________________

Merci de cliquer sur pour chaque message ayant aidé puis sur pour clore cette discussion …

[cecile1234]

j'ai réessayé et cela fonctionne, merci beaucoup à tous les deux

[Menhir]

1) Quel est le code pour selectionner et copier la derniére cellule non vide d'une ligne précise ? (Ligne 12 de la feuille F2)

Premier point : en VBA, il n'est pas nécessaire de sélectionner pour copier. C'est même plutôt déconseillé.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Worksheets("F2").Cells(12,Columns.Count).End(xlToLeft).Copy

2) Quel est le code pour coller cette cellule dans la premiére cellule vide d'une ligne précise d'une autre feuille ? ( Ligne 45 de la Feuille F1, en partant de la colonne Q)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Worksheets("F1").Cells(45,Columns.Count).End(xlToLeft).OffSet(0,1).PasteSpecial(xlPasteAll)

Mais il est possible de faire les deux d'une seul coup :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Worksheets("F2").Cells(12,Columns.Count).End(xlToLeft).Copy Worksheets("F1").Cells(45,Columns.Count).End(xlToLeft).OffSet(0,1)