Sujet Précédent Sujet Suivant

Excel VB

j.sparo83 Messages postés 109 Statut Membre -  
Patrice33740 Messages postés 8930 Statut Membre -
Bonjour,

j'ai des cellules (A2....jusqu'à A10), ces cellules ne sont pas toutes remplis ,je voudrais les consolider dans un tableau d'une autre feuille mais il me copie seulement les ligne non-vides.

je ne sais pas comment faire en VB car je ne m'y connais pas trop..

merci d'avance

3 réponses

Réponse 1 / 3
Patrice33740 Messages postés 8930 Statut Membre 1 782
 
« je voudrais les consolider » ??? 9 cellules !!!
C'est-à-dire que veux-tu exactement
0
Réponse 2 / 3
j.sparo83 Messages postés 109 Statut Membre
 
copier un contenu de plusieurs ligne vers une autre feuille à condition de ne pas copier les lignes vides,ex:

source : ligne A2 : abcdefghij
ligne A3 :
ligne A4 : hksdjzer

cible : ligne A2 : abcdefghij
ligne A3 : hksdjzer
0
Réponse 3 / 3
Patrice33740 Messages postés 8930 Statut Membre 1 782
 
Essaies ce code : 
Option Explicit
Sub test()
Dim CelluleOrigine As Range
Dim CelluleDestination As Range

Set CelluleDestination = Feuil2.Range("A2")
For Each CelluleOrigine In Feuil1.Range("A2:A10").Cells
  If Not IsEmpty(CelluleOrigine) Then
    CelluleDestination.Value = CelluleOrigine.Value
    Set CelluleDestination = CelluleDestination.Offset(1)
  End If
Next CelluleOrigine

End Sub
0