XL 2010 copier et coller certaines lignes non vides d'un tableau

[soumus]

Bonsoir a Tous et à Toutes
Moi mon problème est totalement différent, je cherche de l'aide pour copier et coller uniquement de certaines lignes non vides de mon tableau en feuille2 pour les coller sur la 1ere ligne vide de la colonne G3 d' un autre table en feuille3.
NB: La copie doit se faire sur la 1ere ligne vide de la colonne G3 de la feuille3.
Votre aide SVP pour une macro.
Merci d"avance de votre aide

 

[fanfan38]

Bonjour
Ci joint ma solution
Tu double clic sur la ligne à copier

A+ François

 

[soumus]

Bonjour Monsieur
Déjà merci pour cet début que je trouve intéressant. Mais je souhaiterait avec votre aide avoir un bouton qui ne copier et collera uniquement que les lignes renseignées des différentes plages.
Merci de votre retour.
Cordialement

 

[fanfan38]

Soit plus précis...
A+ François

 

[soumus]

Je souhaite que avec ce bouton si je clique dessus seules les lignes non vides seront copiées et collées
Exemple: dans mon tableau en feuil2 la ligne B4 est la seule renseignée.je veux la copier dés que je clique sur le bouton sur la 1ere ligne vide en feuil3 . Même chose pour les lignes B11:B13 qui sont renseignées je veux les copier et les coller sur la 1ere ligne vides en feuil3 ainsi de suite pour les B23:B24 également.
le Bouton ne copiera que les seules lignes si et seulement si elles sont renseignées.
NB: on les copie a partir de la colonne G en feuil3 sans effacer ce qui a déjà été copié.

 

[soumus]

Merci Monsieur Francois
J'ai testé la macro ca marche parfaitement, c'est exactement ce que je voulais.
Merci mille fois vraiment et excellent repos dominical.
A++

 

[fanch55]

Bonjour à tous,

Je souhaite que avec ce bouton si je clique dessus seules les lignes non vides seront copiées et collées
Exemple: dans mon tableau en feuil2 la ligne B4 est la seule renseignée.je veux la copier dés que je clique sur le bouton sur la 1ere ligne vide en feuil3 . Même chose pour les lignes B11:B13 qui sont renseignées je veux les copier et les coller sur la 1ere ligne vides en feuil3 ainsi de suite pour les B23:B24 également.
le Bouton ne copiera que les seules lignes si et seulement si elles sont renseignées.
NB: on les copie a partir de la colonne G en feuil3 sans effacer ce qui a déjà été copié.

 

[soumus]

Bonjour Mon cher Fanch55
Comment vous allez ca fait un bail.
J'espère que tout baigne de votre coté

 

[soumus]

Bonjour à tous,

Bonjour Mon cher Fanch55
Comment vous allez ca fait un bail.
J'espère que tout baigne de votre cot

 

[fanch55]

Bonjour,
Tout va comme il faut.
Vous venez mettre un post en tant que solution ?

 

[soumus]

Bonjour,
Tout va comme il faut.
Vous venez mettre un post en tant que solution ?

Excuser moi je voulais vous soumettre un probleme

 

[soumus]

Excuser moi je voulais vous soumettre un probleme

J(ai un message d'erreur de division par zero sur ce bout de code.
Mon dénominateur est souvent égal a zero et excel vba renvoie erreur 11 (division par zero)
Comment résoudre le probleme
Feuil2.Range("D90").Value = CLng(QuotitéDispoConjoints * Feuil2.Range("E51").Value) / Application.WorksheetFunction.CountA(Range("D5155"))

 

[fanch55]

Feuil2.Range("D90").Value = CLng(QuotitéDispoConjoints * Feuil2.Range("E51").Value) / Application.WorksheetFunction.CountA(Range("D5155"))

L = WorksheetFunction.CountA([D51:D55])
If L > 0 Then Feuil2.[D90] = CLng(QuotitéDispoConjoints * Feuil2.[E51]) / L

ou

Feuil2.[D90] = CLng(QuotitéDispoConjoints * Feuil2.[E51]) / WorksheetFunction.Max(1,WorksheetFunction.CountA([D51:D55]))

 

[soumus]

L = WorksheetFunction.CountA([D51:D55])
If L > 0 Then Feuil2.[D90] = CLng(QuotitéDispoConjoints * Feuil2.[E51]) / L

ou

Feuil2.[D90] = CLng(QuotitéDispoConjoints * Feuil2.[E51]) / WorksheetFunction.Max(1,WorksheetFunction.CountA([D51:D55]))

Merci encore mille fois.Ca marche comme je voulais.Vous étes vraiment un expert.