XL 2019 Demande d'aide : Copier plages de cellules non vides

[hamzaelouazzani]

Bonjour à vous chers amis,

Je vous explique ma problématique, j'ai un fichier pour le suivi des palettes, le truc ici c'est que l'ensemble des données sont intégrées manuellement ou avec des listes déroulantes, ces données sont transférées au niveau du tableau O3 jusqu'à AA8 qui se trouve dans la feuille "Mapping". Ces cellules doivent après être copier (sans prendre en consération des cellules vides) et coller au niveau du tableau qui se trouve dans la feuille "Database".

Vous pouvez trouver en pièce jointe le fichier XLSX.

Merci infiniment pour votre aide.

 

[Phil69970]

@hamzaelouazzani

Le fichier de mon post # 2 n'a pas été modifié et à chaque fois tu me sors une nouvelle erreur différente de la précédente !!!
C'est impossible si tu as une erreur c'est logiquement toujours la même sauf si tu as bricolé ma macro.
Ferme excel complètement et et réouvre excel....

Et je le répète sur mon micro mon fichier ne bug pas.

De plus je t'ai donné toutes les infos pour séparer la copie de l'impression (il suffit de supprimer 1 mot)

@Phil69970

 

[hamzaelouazzani]

@hamzaelouazzani

Le fichier de mon post # 2 n'a pas été modifié et à chaque fois tu me sors une nouvelle erreur différente de la précédente !!!
C'est impossible si tu as une erreur c'est logiquement toujours la même sauf si tu as bricolé ma macro.
Ferme excel complètement et et réouvre excel....

Et je le répète sur mon micro mon fichier ne bug pas.

De plus je t'ai donné toutes les infos pour séparer la copie de l'impression (il suffit de supprimer 1 mot)

Regarde la pièce jointe 1146141

@Phil69970

Bonjour cher ami,

Je suis vraiment bloqué, j'ai fait ce que tu m'avais demandé, voici le bug ou il se trouve.

Merci infiniment pour ton aide.

 

[Phil69970]

@hamzaelouazzani

Essaye comme ceci

Sub imprimer()
With Worksheets("Edition")
    .[B6] = .[B6] + 1
   
    With .PageSetup
        .PrintArea = Worksheets("Edition").Range("A1:H38")  'Zone à sélectionner
        .Orientation = xlPortrait                           'Mode paysage ==> xlLandscape
    End With
   
    .PrintPreview                                           'Aperçu pour test
    '.PrintOut                                               'Impression
End With

End Sub

Et dis moi ce qu'il se passe

@Phil69970

 

[hamzaelouazzani]

@hamzaelouazzani

Essaye comme ceci

Sub imprimer()
With Worksheets("Edition")
    .[B6] = .[B6] + 1
  
    With .PageSetup
        .PrintArea = Worksheets("Edition").Range("A1:H38")  'Zone à sélectionner
        .Orientation = xlPortrait                           'Mode paysage ==> xlLandscape
    End With
  
    .PrintPreview                                           'Aperçu pour test
    '.PrintOut                                               'Impression
End With

End Sub

Et dis moi ce qu'il se passe

@Phil69970

Pour cette partie d'incrémentation et impression ça marche à merveille.

 

[Phil69970]

@hamzaelouazzani

Et bien maintenant tu remets le mot "copie" ou il se trouvait dans la macro

End With

Copie
End Sub

@Phil69970

 

[hamzaelouazzani]

@hamzaelouazzani

Et bien maintenant tu remets le mot "copie" ou il se trouvait dans la macro



@Phil69970

Merci beaucoup pour ton aide tout marche à merveille, le truc ici c'est juste avec une formule qui s'insère et me créer une ligne vide au niveau de la base de

données.

 

[Phil69970]

@hamzaelouazzani

Je ne sais pas comment tu te débrouilles mais encore une fois avec mon fichier du post # 2 j’obtiens cela :

Ta photo ne correspond pas au données (lignes 29 à 35) qui se trouve dans mon fichier 😵

@Phil69970

 

[hamzaelouazzani]

@hamzaelouazzani

Je ne sais pas comment tu te débrouilles mais encore une fois avec mon fichier du post # 2 j’obtiens cela :
Regarde la pièce jointe 1146147

@Phil69970

Quand je supprime une ligne du bon de palette (je rentre que 4 lignes pa exemple) le fichier prend toujours en considération l'ensemble des lignes, je souhaite ne copier que celles qu'elles sont remplies et ignorer les lignes vides.

 

[Phil69970]

@hamzaelouazzani

Je regarde ce soir ou demain

@Phil69970

 

[hamzaelouazzani]

Bonjour à vous,

Quand je prend que 3 lignes

C'est qui s'affiche au niveau de mon premier tableau (J'ai modifier les formules pour n'afficher que les lignes actives)

Après exécution de la macro, l'ensemble des lignes sont copiées et y'a même une formule qui s'intgre

Voici la formule dont je vous ai parlé

Merci pour votre aide.

 

[hamzaelouazzani]

@hamzaelouazzani

Je regarde ce soir ou demain

@Phil69970

Merci infiniment

 

[Phil69970]

@hamzaelouazzani

Voici le fichier

@Phil69970

 

[hamzaelouazzani]

@hamzaelouazzani

Voici le fichier

@Phil69970

Merci beaucoup mon frère, ça marche très bien maintenant