Discussion :

[jacko842]

Bonjour alors voila j ai une première feuille Excel dont je transfert les données dans une autre feuilles grâce a la macro suivante:

'

Code :

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

1
2
3
4
5
Range("A5:J21").Select 'selection
    Selection.Cut 'coupe
    Sheets("Visite année 2009").Select 'envois vers une autre feuille
    Range("A5:J23").Select 'selection
    ActiveSheet.Paste 'colle

Le problème c'est que j aimerai qu'a chaque fois que je clik sur le bouton qu' il n'écrase pas les autre donnée qui se trouve sur la 2ème feuille mais les mettre a la suite.

Et aussi qu'a chaque fois que je clik sur le bouton qu'il sélectionne toutes les cellules utilisée de la 1 ère feuille. Car se nombre peut varié en longueur mais pas en largeur.

Merci d'avance .

Donc j aurai besoin de savoir comment sélectionne toutes les cellules utilisé(non vide) de la 1 ère feuille pour ensuite les coller a la suite des données déjà présente sur la 2 ème feuille

Code :

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

Range(A65536).End(xlUp).Select

[fred65200]

bonsoir et mes meilleurs voeux pour cette nouvelle année.

Je pense que le code suivant répond à tes attentes

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
23
Option Explicit
 
Sub Essai()
 
Dim Wksh1 As Worksheet
Dim Wksh2 As Worksheet
Dim Derli1 As Long
Dim Derli2 As Long
 
Set Wksh1 = ActiveSheet 'Sheets("Feuil1")
Set Wksh2 = Sheets("Visite année 2009")
 
'recherche de la dernière ligne de la feuille active
Derli1 = Wksh1.Columns(1).Find("*", , , , , xlPrevious).Row
' recherche de la première ligne vide de la feuille "Visite année 2009"
On Error Resume Next
Derli2 = Wksh2.Columns(1).Find("*", , , , , xlPrevious).Row + 1
'condition pour commencer à la ligne 5
If Derli2 < 5 Then Derli2 = 5
On Error GoTo 0
'copies des données
Wksh1.Range("A5:J" & Derli1).Copy Wksh2.Range("a" & Derli2)
End Sub

cordialement

[jacko842]

ok merci pour ton code, je vais essayé, c est la première fois que je fais une macro voici mon code:

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
    Dim int_dern_cell As Integer
    
    int_dern_cell = Sheets(1).Cells(65535, 10).End(xlUp)(2).Row 'Détecte la dernière cellule vide de la colonne
    MsgBox "la cellule vide est la : " & int_dern_cell
    Range(("A5"), int_dern_cell-1).Select 'selectionne les cellules. 
LE PROBLEME EST ICI JE N ARRIVE PAR RENTRER LE PARAMÊTRE de la colonne peut etre une problème de variable???
    
    
    Selection.Copy 'copie les cellules.
    Sheets("Visite année 2009").Select 'passe a la feuille Visite...
    [A65536].Select 'Se positionner sur la dernière cellule vide de la colonne.
    Selection.End(xlUp)(2).Select
    ActiveSheet.Paste 'colle les cellues.
    Sheets("Journée en cours").Select 'passe a la feuille journée en cours...
    Range("A5:J1500").Select 'selectionne les cellules.
    Selection.SpecialCells(xlCellTypeConstants, 23).ClearContents 'Effacer le contenu des cellules
    Range("A5").Select

Aurais tu un bon lien ou tuto pour moi apprend le vba pour excel?

Merci d avance

[jacko842]

voila ou j'en suis

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
23
24
25
26
27
 
 
Sub Macro2()
'
' Macro2 Macro
' Macro enregistrée le 31/12/2008 par neotof
'
    Dim lng_dern_cell As Integer
    Dim str_der_coll As String
 
    lng_dern_cell = Sheets(1).Cells(65535, 10).End(xlUp)(2).Row 'Détecte la dernière cellule vide de la colonne
    MsgBox "la cellule vide est la : " & lng_dern_cell
    str_der_coll = "J" & Str(lng_dern_cell - 1)
    Range("A5" & ":" & str_der_coll).Select 'selectionne les cellules.
    LE PROBLEME EST LA 
 
    Selection.Copy 'copie les cellules.
    Sheets("Visite année 2009").Select 'passe a la feuille Visite...
    [A65536].Select 'Se positionner sur la dernière cellule vide de la colonne.
    Selection.End(xlUp)(2).Select
    ActiveSheet.Paste 'colle les cellues.
    Sheets("Journée en cours").Select 'passe a la feuille journée en cours...
    Range("A5:J1500").Select 'selectionne les cellules.
    Selection.SpecialCells(xlCellTypeConstants, 23).ClearContents 'Effacer le contenu des cellules
    Range("A5").Select
 
End Sub

[Invité]

Bonjour,

Code :

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

str_der_coll = "J" & Str(lng_dern_cell - 1)

Dans cette ligne la fonction Str est non seulement inutile mais aussi non adaptée.

Regardez dans l'aide VBA et vous verrez que le nombre converti en texte comporte un espace devant le 1er chiffre si ce nombre est positif.

Ce code fonctionne très bien :

Code :

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

str_der_coll = "J" & lng_dern_cell - 1

mais si vous y tenez vous pouvez aussi écrire :

Code :

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

str_der_coll = "J" & CStr(lng_dern_cell - 1)

[jacko842]

Ok un grand merci