Compiler des données sans copier les cellules vides

Robert

XLDnaute Barbatruc

Repose en paix

• 25 Juillet 2012

• #2

Re : Compiler des données sans copier les cellules vides

Bonjour Feuavolonte et bienvenu, bonjour le forum,

Kékouillon ! On ne peut pas ouvrir ton code... Est-ce tant si confidentiel que ça ?
Bref si tu bloques tes codes, je bloque aussi les miens...

 

Vote positif 0 Vote négatif

JNP

XLDnaute Barbatruc

• 25 Juillet 2012

• #3

Re : Compiler des données sans copier les cellules vides

Bonjour le fil ,

Robert à dit:

Kékouillon ! On ne peut pas ouvrir ton code... Est-ce tant si confidentiel que ça ?

Cliquez pour agrandir...

Ça ne demande même pas de MdP, je ne suis pas sûr que notre nouvel ami l'ait fait exprès ...
Ou alors, il faut qu'on m'explique comment verrouiller un projet via macro, ceci à la porté d'un débutant ...
A mon avis, il faut plutôt qu'il recharge son fichier
Bonne suite

 

Vote positif 0 Vote négatif

tototiti2008

XLDnaute Barbatruc

• 25 Juillet 2012

• #4

Re : Compiler des données sans copier les cellules vides

Bonjour à tous,

Le classeur semble partagé, essayez d'enlever le partage ça devrait donner accès au code... j'ai pas Excel 2010 mais ça a fini par marcher en le convertissant en 2003

 

Vote positif 0 Vote négatif

JNP

XLDnaute Barbatruc

• 25 Juillet 2012

• #5

Re : Compiler des données sans copier les cellules vides

Re ,
Bien vu Marc ...
Bon, si j'ai compris :

Code:

Sub Macro5()
Dim DerLigne As Integer
DerLigne = Range("A" & Rows.Count).End(xlUp).Row
With Sheets("Feuil2")
    .Rows("1:" & DerLigne - 1).Insert Shift:=xlDown
    Rows("2:" & DerLigne).Copy .Range("A1")
End With
End Sub

Bonne suite

 

Vote positif 0 Vote négatif

F

Feuavolonte

XLDnaute Nouveau

• 25 Juillet 2012

• #6

Re : Compiler des données sans copier les cellules vides

Veuillez m'excusez !

voilà le document non bloqué (Merci tototiti2008)

Merci pour l'accueil le ton est donné ! le débutant que je suis, commence déjà à faire des erreurs!

ps: Robert, il n'y a rien de confidentiel bien au contraire je fais quelques exercices pour m'entraîner. "il faut être pris pour être appris"

Code:

Sub Macro5()
 Dim DerLigne As Integer
 DerLigne = Range("A" & Rows.Count).End(xlUp).Row
 With Sheets("Feuil2")
     .Rows("1:" & DerLigne - 1).Insert Shift:=xlDown
     Rows("2:" & DerLigne).Copy .Range("A1")
 End With
 End Sub

JNP merci pour le code mais ce n'est pas encore tout à fait ça, en fait j'aimerais mettre à jour sur la feuille 2 uniquement les informations contenues dans les lignes remplies en feuille 1, les autres lignes qui ne sont pas remplies ne doivent pas s'afficher. J'ai fait quelques tests mais sans réussite !

 

Pièces jointes

• compilation des données.xlsm

  20.9 KB · Affichages: 58
• compilation des données.xlsm

  20.9 KB · Affichages: 75
• compilation des données.xlsm

  20.9 KB · Affichages: 70

Vote positif 0 Vote négatif

F

Feuavolonte

XLDnaute Nouveau

• 25 Juillet 2012

• #7

Re : Compiler des données sans copier les cellules vides

Merci d'avance pour vos réponses ! je ne m'attendais pas à avoir des retours aujourd'hui !! c'est super !

 

Vote positif 0 Vote négatif

JNP

XLDnaute Barbatruc

• 25 Juillet 2012

• #8

Re : Compiler des données sans copier les cellules vides

Re ,
Comme ceci peut-être

Code:

Sub Macro5()
Dim DerLigne As Integer, I As Integer
DerLigne = Range("A" & Rows.Count).End(xlUp).Row
With Sheets("Feuil2")
    .Rows("1:" & DerLigne - 1).Insert Shift:=xlDown
    Rows("2:" & DerLigne).Copy .Range("A1")
    For I = 1 To DerLigne
        If .Range("A" & I) = "" Then .Rows(I).Delete
    Next I
End With
End Sub

Bonne suite

 

Vote positif 0 Vote négatif

F

Feuavolonte

XLDnaute Nouveau

• 7 Août 2012

• #9

Re : Compiler des données sans copier les cellules vides

Merci beaucoup ! ça fontionne !!!

Désolé de ne pas avoir répondu plutôt !!

Merci encore !!

 

Vote positif 0 Vote négatif