Copier cellules non vide d'une plage

[lmc71]

Bonjour le Forum
Je reviens vers vous car je n'arrive pas à trouver mon bonheur sur la toile.
J'ai une feuille nommée JANVIER et dans cette feuille je voudrais sélectionner toutes les cellules NON VIDES de la plage C6:I150 pour les COPIER et les COLLER dans la feuille VERIFICAT à la première cellule vide de la colonne D4. Cette cellule est aléatoire.
Merci de votre aide, car je tourne en boucle dans mes recherches.
Cordialement

 

[lmc71]

Re : Copier cellules non vide d'une plage

Bonjour Papou-Net
C'est normal pour l'info.
Je te l'enverrai, mais pas demain, car je dois encore apporter des modif.
A+
et encore merci pour tout
Cordialement

 

[lmc71]

Re : Copier cellules non vide d'une plage

Re
Comme promis, je te joins mon application complète. Il faut lancer en premier lieu le fichier RecapitulatifMJ, puis soit José soit Monique.
Il faut placer le dossier sous d:\ pour que les macros puissent être prises en compte.
Je ne sais pas utiliser la fonction Path pour éviter le D:\
Il y a sûrement des erreurs ou des lourdeurs, mais garce à des personnes comme toi et du pompage sur les forums, je suis arrivé à ce résultat.

Ce lien n'existe plus

A+ et merci encore

Cordialement

 

[JCGL]

Re : Copier cellules non vide d'une plage

Bonjour à tous,

Peux-tu essayer :

Route = ThisWorkbook.Path & "\"

Chem = ThisWorkbook.Path & "\"

Sub Ouvr_Fichier_Jose()
Workbooks.Open Filename:=ThisWorkbook.Path & "\José.xlsm"

Sub Ouvr_Fichier_Monique()
Workbooks.Open Filename:=ThisWorkbook.Path & "\Monique.xlsm"

A+ à tous

 

[lmc71]

Re : Copier cellules non vide d'une plage

Bonjour JCGL
Je vais essayer et je tiens informer.
Cordialement

 

[lmc71]

Re : Copier cellules non vide d'une plage

Re
J'ai apporté les modifications que tu as proposées et tout fonctionne.
Si je comprends, avec tes codes, quel que soit l'endroit C:\ ou D:\ ou autre, il trouve le fichier concerné.
est-ce correct ?
A+

 

[JCGL]

Re : Copier cellules non vide d'une plage

Bonjour à tous,

Pas tout à fait...

Il faut que le fichier soit dans le même répertoire que José et Monique.

A+ à tous

 

[lmc71]

Re : Copier cellules non vide d'une plage

Re

Effectivement, quand je parlais de fichier, c'était avec sous entendu le dossier en sous-répertoire.

Dossier = 3 fichiers

Merci

 

[lmc71]

Re : Copier cellules non vide d'une plage

Bonjour JCGL

Je reviens vous voir, toujours pour la même application, avec une évolution.
Je joins un petit fichier pour mieux expliquer.
J'ai utilisé, dans un autre fichier, un code qui me permettait d'insérer une feuille portant l'année suivante selon un critère. J'ai copié cette macro dans mon fichier, je l'ai modifiée et elle ne fonctionne pas normalement.
Je ne comprends pas pourquoi.

S'il est possible de regarder et m'expliquer le pourquoi elle n'insère que seulement deux feuilles et pas plus.
Merci