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

hamzaelouazzani · 25 Juillet 2022

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 · 26 Juillet 2022

@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 · 26 Juillet 2022

Phil69970 à dit:
@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 · 26 Juillet 2022

@hamzaelouazzani

Essaye comme ceci

VB:

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 · 26 Juillet 2022

Phil69970 à dit:

@hamzaelouazzani

Essaye comme ceci

VB:

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 · 26 Juillet 2022

@hamzaelouazzani

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

End With

Copie
End Sub

@Phil69970

hamzaelouazzani · 26 Juillet 2022

Phil69970 à dit:
@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 · 26 Juillet 2022

@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 · 26 Juillet 2022

Phil69970 à dit:
@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 · 26 Juillet 2022

@hamzaelouazzani

Je regarde ce soir ou demain

@Phil69970

hamzaelouazzani · 26 Juillet 2022

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 · 26 Juillet 2022

Phil69970 à dit:
@hamzaelouazzani

Je regarde ce soir ou demain

@Phil69970

Merci infiniment

Phil69970 · 26 Juillet 2022

@hamzaelouazzani

Voici le fichier

@Phil69970

hamzaelouazzani · 26 Juillet 2022

Phil69970 à dit:
@hamzaelouazzani

Voici le fichier

@Phil69970

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

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

hamzaelouazzani

XLDnaute Nouveau

Pièces jointes

Phil69970

XLDnaute Barbatruc

hamzaelouazzani

XLDnaute Nouveau

Phil69970

XLDnaute Barbatruc

hamzaelouazzani

XLDnaute Nouveau

Phil69970

XLDnaute Barbatruc

hamzaelouazzani

XLDnaute Nouveau

Phil69970

XLDnaute Barbatruc

hamzaelouazzani

XLDnaute Nouveau

Phil69970

XLDnaute Barbatruc

hamzaelouazzani

XLDnaute Nouveau

hamzaelouazzani

XLDnaute Nouveau

Phil69970

XLDnaute Barbatruc

Pièces jointes

hamzaelouazzani

XLDnaute Nouveau

Discussions similaires