Discussion :

[chipster008]

Bonjour,

J'ai un problème

Je voudrais copier les cellules de A3 à V3 d'une feuille qui s'appelle saisie nouvelle clé, les mettre après la dernière ligne remplie d'une feuille qui s'appelle Base et ensuite effacer les cellules de A3 à V3 de la feuille saisie nouvelle clé.

J'avais trouvé une macro à bidouiller il y a quelques temps pour un autre fichier, le problème c'est que maintenant je comprend plus rien à ce que j'ai écris.

Est ce qu'une âme charitable peut m'aider ? s'il vous plait.

[batou22003]

fait comme suit :

J'ai fixé sur la feuille "base" le début de la feuille en "A1".

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Dim rangeDepart As Range
 
 
Application.ScreenUpdating = False
 Sheets("saisie nouvelle clé").Select
    Range("A3:V3").Cut
    Sheets("Base").Select
 
    Set rangeDepart = Range("A1")
    derniereLigne = 1
 
    While Len(Trim(rangeDepart.Value)) > 0
    Set rangeDepart = rangeDepart.Offset(1, 0)
 
    Wend
 
 
    rangeDepart.Select
    ActiveSheet.Paste
    Sheets("saisie nouvelle clé").Select
 
Application.ScreenUpdating = True

Met résolu si c'est ok.

[casefayere]

Bonjour,
Autre solution :

Code :

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

1
2
3
4
5
6
Dim derlg As Long
With Sheets("Base")
    derlg = .Range("A" & .Rows.Count).End(xlUp).Row + 1
    .Range("A" & derlg, "V" & derlg) = Sheets("saisie nouvelle clé").Range("A3:V3").Value
End With
Sheets("saisie nouvelle clé").Range("A3:V3").ClearContents

[batou22003]

sympathique soluce Dom

[chipster008]

C'est génial merci beaucoup, finalement j'ai pris la solution de casefayere.

Un énorme merci à vous 2.