Saut dans le transfert

[JACMIC]

Bonjour à tous

Je vous joint un petit fichier présentant une macro que je veux réaliser mais qui coince un peu.
Le transfert doit se faire depuis la Feuil1 vers la feuil2 mais il en oublie au passage.
La cellule C6 est vide, c'est normal il peut y avoir des cellules vides, mais pourquoi la cellule C5 n'est pas copié là est le souci, alors que C7 l'est.

En même temps, comment écrire pour que le nombre de ligne (A65536) soit limité, par exemple entre A1 et A25

Merci car vous avez surement la réponse.

Jacmic

 

[Excel-lent]

Re : Saut dans le transfert

Slt JACMIC,

pourquoi la cellule C5 n'est pas copié là est le souci, alors que C7 l'est.

Tout simplement parce que tu copie la cellule C5 sur la cellule Z
Puis tu copie la celllule C7 sur ... roulement de tambour... sur la cellule Z!

Soit : exactement la même cellule, donc il écrase ta valeur précédente! (idem pour la cellule C6.

 

[Excel-lent]

Re : Saut dans le transfert

Re,

Voici le code basique (testé, ça fonctionne).

Sub CommandButton1_Click()

Dim DebutLigneF1 As Long
Dim FinLigneF1 As Long
Dim LigneF2 As Long

DebutLigneF1 = Sheets("Feuil1").Range("C1").End(xlDown).Row
FinLigneF1 = Sheets("Feuil1").Range("C65536").End(xlUp).Row
LigneF2 = 1

   For i = DebutLigneF1 To FinLigneF1

      Sheets("Feuil2").Range("A" & LigneF2).Value = Sheets("Feuil1").Range("C" & i).Value
      LigneF2 = LigneF2 + 1
 
   Next i

End Sub

-> Elle recopie bêtement ta Feuille1 sur la Feuille2.
-> Elle part de la première cellule pleine de la colonne C jusqu'à la dernière cellule pleine de la colonne C

Macro légèrement plus complexe (annule et remplace)

Sub CommandButton1_Click()

Dim DebutLigneF1 As Long
Dim FinLigneF1 As Long
Dim LigneF2 As Long

DebutLigneF1 = Sheets("Feuil1").Range("C1").End(xlDown).Row
FinLigneF1 = Sheets("Feuil1").Range("C65536").End(xlUp).Row
LigneF2 = 1

   For i = DebutLigneF1 To FinLigneF1

      Sheets("Feuil2").Range("A" & LigneF2).Value = Sheets("Feuil1").Range("C" & i).Value
        If Sheets("Feuil2").Range("A" & LigneF2).Value <> "" Then
           LigneF2 = LigneF2 + 1
        End If
   Next i

End Sub

C'est la même que précédemment, sauf qu'elle gére les cellules où il n'y a rien sur la cellule de la feuille1 testé.

 

[JACMIC]

Re : Saut dans le transfert

Merci Beaucoup Ecxel-lent pour ta réponse.

Ca marche au poil

Merci encore car tu as géré les cellules vide et c'est ce que je voulais.

C'est formidable d'être si bien compris.
J'espère pouvoir un jour aider quelqu'un comme tu le fait mais je n'ai malheureusement pas souvent la solution aux questions qui sont posées sur le forum
mais si je le peux soit assuré que je le ferais

Encore merci

JACMIC

 

[Excel-lent]

Re : Saut dans le transfert

J'espère pouvoir un jour aider quelqu'un comme tu le fait mais je n'ai malheureusement pas souvent la solution aux questions qui sont posées sur le forum
mais si je le peux soit assuré que je le ferais

C'est vraiment sympa. Tu verras, en plus en aidant les autres, on apprend également plein de truc sympa!