Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Code macro pour copier coller sur une autre feuille excel sans cases vides

A

Aurel73

XLDnaute Nouveau
Bonjour à toutes et à tous,

Je suis novice (vraiment débutant) en matière de VBA.
Mon problème est le suivant : sous excel 2010, je souhaite pouvoir copier des données d'une feuille 1 (contenus sur plusieurs colonnes) en supprimant les cellules vides afin de les coller à un emplacement spécifique sur une feuille 2...

Après de longues heures de recherche, j'ai trouvé un code qui me permet de suprimer les cases vides :

Sub masquer_ligne_Vide()
Dim cel As Range
For Each cel In Range("A1:A100")
If cel = "" Then
cel.EntireRow.Hidden = True
End If
Next
End Sub

Mais je ne trouve pas la suite...

Alors j'appel à une "ame" charritable qui voudrait bien m'aider...

Par avance merci,

Cordialement,
 
Trier par date Trier par votes

job75

XLDnaute Barbatruc
Re : Code macro pour copier coller sur une autre feuille excel sans cases vides

Re,

Je crois que ce qui vous embête c'est que les cases à cocher n'apparaissent pas dans "VERSION IMPRIMABLE".

Si vous voulez qu'elles apparaissent choisir dans leurs propriétés "Déplacer sans dimensionner avec les cellules".

A+
 
Vote positif 0 Vote négatif
A

Aurel73

XLDnaute Nouveau
Re : Code macro pour copier coller sur une autre feuille excel sans cases vides

Re,

En effet, ça règle une grosse partie du problème! merci

Pour essayer de vous expliquer au mieux mon soucis, je me permets de prendre un exemple, n'ayant le language adequat...
dans l'onglet chiffrage, dans la section gros oeuvre, j'ai 2 lignes avec des poutres selctionnées! elles se reporte bien dans 'version imprimable', pas de soucis!
Mais s'il me faut dans une des lignes libres de 'chiffrage' remplir une nouvelle ligne dans la partie gros oeuvre, elle n'apparaît pas automatiquement dans 'version imprimable'...

J'espère vous avoir aidé à appréhender ce que je veux dire et que comme depuis le départ, vous aurez la solution magique à ce problème qui peut être source de grosse erreur de chiffrage pour moi!!

Encore merci de votre patience et de votre temps!
 
Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc
Re : Code macro pour copier coller sur une autre feuille excel sans cases vides

Aurel73 à dit:
Mais s'il me faut dans une des lignes libres de 'chiffrage' remplir une nouvelle ligne dans la partie gros oeuvre, elle n'apparaît pas automatiquement dans 'version imprimable'...
Cliquez pour agrandir...

Soyez plus clair : quelles sont les cellules que vous remplissez et qui n'apparaissent pas ?

C'est quand même simple : toutes les cellules listées en 3ème ligne de la macro sont affichées si elles sont renseignées.

A+
 
Vote positif 0 Vote négatif
A

Aurel73

XLDnaute Nouveau
Re : Code macro pour copier coller sur une autre feuille excel sans cases vides

Bonjour,

Ben désolé de vous décevoir, mais cela ne fonctionne pas...
Je vous joints donc pour etre plus clair un "imprime" écran des 2 onglets :


Sur l'onglet chiffrage, plusieurs ligne ont été renseignées et pourtant, elles n'apparaissent pas sur l'onglet "version imprimable"

Tout mon problème est là...

Merci pour votre aide.
 
Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc
Re : Code macro pour copier coller sur une autre feuille excel sans cases vides

Bonjour Aurel73,

Sans votre fichier où vous avez ce problème je ne peux rien faire de plus.

Car chez moi tout fonctionne bien.

A+
 
Vote positif 0 Vote négatif
A

Aurel73

XLDnaute Nouveau
Re : Code macro pour copier coller sur une autre feuille excel sans cases vides

Re,

Le fichier est celui que vous m'avez en pièce jointe lors de votre dernier envoie...
J'ai l'impression que les lignes existent (puisque le total des tableaux est juste), et lorque sur l'onglet "version imprimable" j'augmente la hauteur des lignes, alors les lignes apparaissent...Mais cela demande une manipulation suplémentaire...
 
Vote positif 0 Vote négatif
A

Aurel73

XLDnaute Nouveau
Re : Code macro pour copier coller sur une autre feuille excel sans cases vides

Excusez moi mais la taille du fichier Excel dépasse la taille autorisée... Je ne peux donc vous l'envoyer...

Vous avez raison le fichier fonctionne lorsque je crée les références sur l'onglet Chiffrage et que je "clic" sur la "version imprimable". Le problème intervient losque je retourne sur l'onglet chiffrage et que je souhaite ajouter des lignes... Dans ce cas, l'onglet "version imprimable" ne fait pas apparaitre la modification effectuée sur l'onglet chiffrage...
 
Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc
Re : Code macro pour copier coller sur une autre feuille excel sans cases vides

Re,

Bon dans cette nouvelle macro j'ai ajouté la ligne "RAZ nécessaire chez vous ???" voyez si ça règle votre problème.

Par ailleurs je ne m'étais pas occupé des objets (cases à cocher), il faut les supprimer avant de faire le copier-coller :

Code: 
Private Sub Worksheet_Activate()
Dim r As Range, masque As Range, o As Object
Application.ScreenUpdating = False
DrawingObjects.Delete 'supprime tous les objets de la feuille
Cells.Delete 'RAZ nécessaire chez vous ???
Set r = [H36:H45,H49:H70,H74:H78,H82:H95,H99:H134,H138:H159,H163:H194,H198:H202,H206:H219]
Feuil1.Cells.Copy [A1] 'Feuil1 est le CodeName de la feuille
[A1].Copy [A1] 'pour alléger la mémoire
For Each r In r
  If r = "" Then Set masque = Union(r, IIf(masque Is Nothing, r, masque))
Next
If Not masque Is Nothing Then masque.EntireRow.Hidden = True
If [J8] = "RA" Or [J8] = "Perso" Then
  For Each o In DrawingObjects 'pour masquer les cases à cocher
    If Not Intersect(o.TopLeftCell, Rows("12:29")) Is Nothing Then o.Visible = False
  Next
  Rows("12:29").Hidden = True
End If
Me.PageSetup.PrintArea = "$H:$P" 'zone d'impression à adapter au besoin
End Sub
Fichier (2).

A+
 

Pièces jointes

  • Chiffrage sept 2015(2).xlsm
    370.1 KB · Affichages: 34
Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc
Re : Code macro pour copier coller sur une autre feuille excel sans cases vides

Re,

Alors maintenant la question qui tue.

Quel est l'intérêt de la feuille "VERSION IMPRIMABLE" ?

Car on peut faire l'impression directement sur la feuille "CHIFFRAGE" :

Code: 
Private Sub CommandButton1_Click() 'bouton Imprimer
Dim r As Range, masque As Range, o As Object
Application.ScreenUpdating = False
Set r = [H36:H45,H49:H70,H74:H78,H82:H95,H99:H134,H138:H159,H163:H194,H198:H202,H206:H219]
For Each r In r
  If r = "" Then Set masque = Union(r, IIf(masque Is Nothing, r, masque))
Next
If Not masque Is Nothing Then masque.EntireRow.Hidden = True
If [J8] = "RA" Or [J8] = "Perso" Then
  For Each o In DrawingObjects 'pour masquer les cases à cocher
    If Not Intersect(o.TopLeftCell, Rows("12:29")) Is Nothing Then o.Visible = False
  Next
  Rows("12:29").Hidden = True
End If
Me.PageSetup.PrintArea = "$H:$P" 'zone d'impression à adapter au besoin
Me.PrintPreview 'pour tester
'Me.PrintOut 'pour imprimer
Rows.Hidden = False 'affiche toutes les lignes
For Each o In DrawingObjects 'pour afficher tous les objets
 o.Visible = True
Next
End Sub
Fichier (3).

A+
 

Pièces jointes

  • Chiffrage sept 2015(3).xlsm
    299.7 KB · Affichages: 46
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.

Discussions similaires

S
  • Résolu(e)
Autres Copier-Coller en recherchant une ligne spécifique VBA
Réponses
4
Affichages
568
sambio2
S
S
  • Question Question
Microsoft 365 VBA pour copier une une des données d'une ligne à une autre
Réponses
3
Affichages
629
salma_hayek
S
C
  • Résolu(e)
Autres Code VBA pour recherche et copie/coller de ligne avec mot clé.
Réponses
12
Affichages
549
Corentin26270
C
J
  • Résolu(e)
XL 2019 Détection de texte dans une Cellule pour le Copier et Coller dans un autre tableau
2 3
Réponses
40
Affichages
1 K
Phil69970
P
  • Question Question
XL 2019 Copier des cellules d'une feuille sur une autre
Réponses
2
Affichages
593
phoceenjo
P
P
  • Question Question
XL 2021 Code VBA pour copier coller des données de cellules d'une feuille a une autre
Réponses
4
Affichages
607
phoceenjo
P
M
  • Question Question
Microsoft 365 Macro VBA supprimer une colonne
Réponses
5
Affichages
364
marie3107
M
D
  • Question Question
XL 2016 macro pour copier coller des cellules d'une feuille dans une autre feuille avec condition
Réponses
2
Affichages
439
Phil69970
B
  • Question Question
XL 2021 Transfert tableau structuré EXCEL à un endroit précis de WORD
Réponses
8
Affichages
845
job75
M
  • Résolu(e)
XL 2016 UseForm VBA pour renseigner automatiquement des colonnes sur une autre feuille
Réponses
11
Affichages
765
Moussa040810
M
M
  • Résolu(e)
XL 2010 Macro pour copier des colonnes d'une feuille à l'autre en y insérant des colonnes vides entre
Réponses
2
Affichages
339
manu49300
M
J
  • Question Question
Microsoft 365 Création Macro pour copier/coller en valeur dans une autre feuille.
Réponses
1
Affichages
798
Lolote83
L
W
  • Résolu(e)
XL 2019 Macro VBA pour remplacer fonction par valeur si condition respecté
Réponses
5
Affichages
952
WinnieJ
W
  • Question Question
Microsoft 365 Copier et coller formes sans changer de feuille
Réponses
2
Affichages
571
Chasse
E
  • Question Question
XL 2019 Copier tout un tableau d'une feuille et le coller sur une autre feuille.
Réponses
1
Affichages
609
Staple1600
S
  • Question Question
XL 2016 Copier coller feuille dans un autre classeur excel
Réponses
8
Affichages
2 K
StanislasC
S
  • Question Question
XL 2019 ajuster macro copier/coller
Réponses
7
Affichages
593
job75
J
  • Question Question
Autres Supprimer une ligne dans une feuille à partir d'une valeur rentrée dasn une cellule d'une autre feuille
2
Réponses
25
Affichages
2 K
jmc78
J
C
  • Question Question
Microsoft 365 Copier des données d'un fichier excel sur un fichier word
Réponses
0
Affichages
914
ChristianJ
C
S
  • Résolu(e)
Microsoft 365 VBA pour copier/coller une plage de cellule dans un autre onglet en fonction de la date
Réponses
8
Affichages
1 K
Sylvain. B
S
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…