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

XL 2016 Macro copier coller à la suite

E

Erakmur

XLDnaute Occasionnel
Bonjour,
J'aimerai une macro qui me donne le résultat de l'onglet résultat par rapport à l'onglet feuille 1.
Comment obtient ton l'onglet résultat :
Dans la colonne photo 1, filtrer sur les cases non vides, copier coller colonne A, B et C en colonne A de la colonne résultat
Dans la colonne photo 2, filtrer sur les cases non vides, copier coller colonne A, D et E en colonne A de la colonne résultat à la suite du résultat de la colonne photo 1
Dans la colonne photo 3, filtrer sur les cases non vides, copier coller colonne A, F et G en colonne A de la colonne résultat à la suite du résultat de la colonne photo 2
Et ce que cela est possible ?
 

Pièces jointes

  • Macro.xlsx
    9.9 KB · Affichages: 9
Trier par date Trier par votes
E

Erakmur

XLDnaute Occasionnel
Merci. Apriori ça à l'ait de fonctionner. Je le testerai en condition réelle dans quelques jours. La colonne et le nom des colonnes sont déférents ainsi que le nom des onglets mais il suffit je pense de changer cela dans ta macro. Je te tiens au courant
 
Vote positif 0 Vote négatif

Phil69970

XLDnaute Barbatruc
Re

C'est pas grave .....
Erakmur à dit:
La colonne et le nom des colonnes sont déférents
Cliquez pour agrandir...

..... sauf si les colonnes ne sont pas les mêmes


Si le codeName est différents de celui déclaré il y aura un pb
Erakmur à dit:
ainsi que le nom des onglets
Cliquez pour agrandir...
Si le codeName est dans ton fichier respectivement Feuil1 et Feuil2 comme dans ton fichier exemple tout ira bien sinon il faudra ajuster
*Le nom apparent ici Feuil1 et Résultat peuvent être changer sans pb.




D’où l’intérêt de mettre un fichier représentatif
Un fichier représentatif de 10 à 20 lignes avec tes attendus (avant/après) ET respectant le RGPD permettrait de comprendre le problème et de t'apporter une ou des réponses.

C'est quoi représentatif ?
- représentatif, même organisation des lignes et des colonnes, mêmes libellés, mêmes noms de feuilles...
- anonymisé, pas de données personnelles réelles tels nom, n° sécu, adresse ...
- simplifié, une quinzaine de lignes reproduisant l'ensemble des différents cas envisageables

*Éventuellement préciser l'ordre de grandeur des lignes à traiter, exemple mon fichier comporte 1 000 lignes ou bien 20 000 lignes ==> la méthodologie peut être différents.

@Phil69970
 

Pièces jointes

  • 1640284533604.png
    6.2 KB · Affichages: 21
Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc
Bonsoir Erakmur,

Voyez le fichier joint et la macro dans la feuille "Résultat" :
VB: 
Private Sub Worksheet_Activate()
Dim tablo, ub&, resu(), col%, i&, n&
tablo = Sheets("Feuil1").[A1].CurrentRegion.Resize(, 7) 'matrice, plus rapide
ub = UBound(tablo)
ReDim resu(1 To 3 * ub, 1 To 3)
For col = 2 To 6 Step 2
    For i = 2 To ub
        If tablo(i, col) & tablo(i, col + 1) <> "" Then
            n = n + 1
            resu(n, 1) = tablo(i, 1)
            resu(n, 2) = tablo(i, col)
            resu(n, 3) = tablo(i, col + 1)
        End If
Next i, col
'---resy=titution---
If FilterMode Then ShowAllData 'si la feuille est filtrée
With [A2] '1ère cellule de restitution, à adapter
    If n Then .Resize(n, 3) = resu
    .Offset(n).Resize(Rows.Count - n - .Row + 1, 3).ClearContents 'RAZ en dessous
End With
Columns.AutoFit 'ajuste les largeurs
End Sub
Elle se déclenche quand on active la feuille.

L'exécution est très rapide car on utilise des tableaux VBA.

A+
 

Pièces jointes

  • Macro(1).xlsm
    18.5 KB · Affichages: 7
Dernière édition:
Vote positif 0 Vote négatif
E

Erakmur

XLDnaute Occasionnel
Ok je vois. Je vais donc te donner le fichier original en pièce jointe.
Feuil1 = 2. Relevé Equipem. Prise en ch.
Résultat = Multimed
Colonne A = Colonne G
Colonne B = Colonne AQ
Colonne C = Colonne AR
Colonne D = Colonne AS
Colonne E = Colonne AT
Colonne F = Colonne AU
Colonne G = Colonne AV

Je test ta macro Job75.
 

Pièces jointes

  • Nouvelle matrice de démarrage V3.xlsm
    128.8 KB · Affichages: 8
Vote positif 0 Vote négatif
E

Erakmur

XLDnaute Occasionnel
Comment je fais pour l'adapter à ma matrice. Je ne vois pas les nom des colonnes pour les changer ?
 
Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc
Bon voici la macro adaptée :
VB: 
Private Sub Worksheet_Activate()
Dim tablo, ub&, resu(), col%, i&, n&
With Sheets("2. Relevé Equipem. Prise en ch.")
    tablo = .Range("A3:AV" & .Cells.SpecialCells(xlCellTypeLastCell).Row) 'matrice, plus rapide
    ub = UBound(tablo)
    ReDim resu(1 To 3 * ub, 1 To 3)
    For col = .[AQ3].Column To .[AV3].Column Step 2
    For i = 2 To ub
        If tablo(i, col) & tablo(i, col + 1) <> "" Then
            n = n + 1
            resu(n, 1) = tablo(i, 7)
            resu(n, 2) = tablo(i, col)
            resu(n, 3) = tablo(i, col + 1)
        End If
Next i, col
End With
'---resy=titution---
If FilterMode Then ShowAllData 'si la feuille est filtrée
With [A2] '1ère cellule de restitution, à adapter
    If n Then .Resize(n, 3) = resu
    .Offset(n).Resize(Rows.Count - n - .Row + 1, 3).ClearContents 'RAZ en dessous
End With
Columns.AutoFit 'ajuste les largeurs
End Sub
 
Vote positif 0 Vote négatif
E

Erakmur

XLDnaute Occasionnel
Bonjour,
Voilà le fichier sans bug. Dans ta macro, je ne vois pas le nom de l'onglet de la feuille de résultat appelé Multimed. Du coup, je ne pas la tester. Ou l'indique t'on ?
Cordialement
 

Pièces jointes

  • Nouveau Feuille de calcul Microsoft Excel (2).xlsx
    94 KB · Affichages: 12
Vote positif 0 Vote négatif
E

Erakmur

XLDnaute Occasionnel
J'ai testé est ça fonctionne ! Il y a néanmoins un cas de figue que je n'ai pas prévu. Quand il y a un commentaire sans photo ta macro affiche le résultat hors elle ne devrait rien afficher. Cela concerne dans cet exemple les lignes 80, 81 et 82.
De plus, Si je dois un jour rajouter des colonnes Photo anomalie 4 et Commentaire photo 4 après la colonne AV, ta macro est elle facile à modifier ? Si oui comment ?


 
Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc
Erakmur à dit:
Quand il y a un commentaire sans photo ta macro affiche le résultat hors elle ne devrait rien afficher.
Cliquez pour agrandir...
Alors il ne devrait pas y avoir de commentaire sans photo, mon code permet de voir qu'il y a une erreur.

Mais si vous y tenez absolument il est facile de comprendre qu'il suffit de remplacer :
VB: 
If tablo(i, col) & tablo(i, col + 1) <> "" Then
par :
VB: 
If tablo(i, col) <> "" Then
Et si vous voulez ajouter 2 colonnes AW et AX remplacez AV par AX dans la macro (2 endroits).
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.

Discussions similaires

Z
  • Résolu(e)
XL 2016 VBA EXPORT CSV
Réponses
7
Affichages
291
ZZ59264
Z
A
  • Résolu(e)
Microsoft 365 NB.SI sous condition_fusionner deux formules
Réponses
10
Affichages
203
job75
B
  • Question
Microsoft 365 trier dans Fonction Filtre Excel
Réponses
2
Affichages
115
AtTheOne
A
  • Résolu(e)
Microsoft 365 Utiliser SI avec ET/OU ou plutôt SI.CONDITION
Réponses
3
Affichages
201
Jacky67
M
  • Question
XL 2021 VBA Bouton
Réponses
2
Affichages
414
wDog66
L
  • Question
XL 2010 Filtrer et mise en couleur de cellules sur une colonne
Réponses
8
Affichages
582
sylvanu
A
  • Question
XL 2019 Copier le contenu d'un MsgBox ou d'une variable
Réponses
12
Affichages
401
Attila451
A
O
  • Résolu(e)
XL 2013 Formule ou Codage VBA qui met à jour un tableau en fonction de quantité
Réponses
5
Affichages
223
onyirimba
O
C
  • Question
Microsoft 365 Formule pour remplacer des cellules vides
Réponses
3
Affichages
213
JHA
J
D
  • Question
Microsoft 365 Épurer les lignes vides d'une cellule puis fractionner la cellule en plusieurs lignes
2
Réponses
20
Affichages
834
fanch55
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…