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

Guest

• 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

Guest

• 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

Guest

• 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