Copier et coller des valeurs de colonnes en fonction de leurs noms

**esmee88** · 14/10/2020, 11h56

Bonjour à tous,
Je débute dans l'utilisation de VBA et j'ai depuis quelques jours un code à générer qui me fait tourner en bourrique.
Je vous explique.
J'ai un fichier Excel qui comporte plusieurs colonnes dénommées "DEJA RENSEIGNE".
J'aurais besoin de copier et coller les valeurs de ses colonnes dans une seule et même colonne se situant en "J" par exemple.
Au début, j'ai généré ce code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
    Dim Ref As Range
    Set Ref = Range("M1:ZZ1").Find(What:="DEJA RENSEIGNE", LookIn:=xlValues, LookAt:=xlWhole)
    Set Ref = Intersect(Range("M1").CurrentRegion, Ref.EntireColumn)
    Intersect(Ref, Ref.Offset(1)).Select
    Selection.Cut
    Range("J2").Select
    ActiveSheet.Paste

Mais bien évidemment, ceci ne me permet de trouver et de copier coller uniquement la première colonne dénommer "DEJA RENSEIGNE".
Une boucle serait donc beaucoup plus adaptée à mes besoins mais la... je suis complètement perdue
J'ai commencé à saisir ce code pour préciser mes variables 1er à la dernière colonne :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Dim der_colonne As Integer
der_colonne = Cells.SpecialCells(xlCellTypeLastCell).Row
For colonne = 1 To der_colonne

Ensuite je ne sais pas comment formuler ma demande via le code VBA.

Pouvez vous m'aider svp

D'avance merci et bonne journée à vous

PS : je vous joins un exemple des données à traiter en pièce jointe

**BENNASR** · 14/10/2020, 12h14

bonjour
à tester

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Option Explicit
Sub rassembler()
Dim dercol As Long
Dim F As Worksheet
Dim C As Integer
Dim derlig As Long
Dim L As Long
Dim lig As Long
Application.ScreenUpdating = False
L = 2
Set F = Sheets("Feuil1")
dercol = F.Cells(1, F.Cells.Columns.Count).End(xlToLeft).Column
For C = 1 To dercol
If F.Cells(1, C) = "DEJA RENSEIGNE" Then
derlig = F.Cells(Rows.Count, C).End(xlUp).Row
F.Range(Cells(2, C), Cells(derlig, C)).Copy
F.Cells(L, "J").PasteSpecial Paste:=xlPasteValues
L = F.Cells(Rows.Count, 10).End(xlUp).Row + 1
End If
Next C
Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub

**esmee88** · 14/10/2020, 13h37

Bonjour BENNASR,

Tout d'abord je te remercie d'avoir pris le temps de m'apporter ton aide.

Je viens de tester et apparemment, il ne réalise qu'un copier/coller de la 1ere colonne comportant "DEJA RENSEIGNE".

**BENNASR** · 14/10/2020, 13h48

normalement il copie tous les colonne ou il existe en ligne 1 "DEJA RENSEIGNE"
peux tu joindre un fichier test avec qq ligne de données non confid svp

**esmee88** · 14/10/2020, 13h55

Le voici, j'ai juste modifié le type de copier coller pour ne pas écraser des données et modifier le nom des colonnes

**BENNASR** · 14/10/2020, 14h00

je travaille avec feuil1 ou feuil 2
en plus y a aucune colonne ou il est écrit exactement "DEJA RENSEIGNE"
!!!
on colle ds la colonne J non ??

**BENNASR** · 14/10/2020, 14h02

Doit on copier non pas toute la colonne mais seulement s'il y a un "OUI" ????

**esmee88** · 14/10/2020, 14h10

Je dois copier toutes les données (oui ou non) et les mettre dans la même colonne.

En revanche il ne faut pas que je colle les cases vides (risque d'écraser des données)

**BENNASR** · 14/10/2020, 14h14

voir intervention 6 et répondre svp

**esmee88** · 14/10/2020, 14h23

Je suis sincèrement désolée BENNASR, je me suis trompée de fichier.
Je n'ai pas mis le fichier prenant en charge la macro.
Je vous transmet le fichier avec la macro avec mes modifs.

**BENNASR** · 14/10/2020, 14h35

re
parce que tu n'as pas changé ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

L = F.Cells(Rows.Count, 8).End(xlUp).Row + 1

colonne H donc 8 et non pas 10
j'ai remplacer oui et non par des nombre pour s'assurer que le code apporte tous

**BENNASR** · 14/10/2020, 14h44

maintenant c'est claire tu cherche à supprimer les cellules vides de la colonne H
ce qui donne :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
Sub rassembler()
Dim dercol As Long
Dim F As Worksheet
Dim C As Integer
Dim derlig As Long
Dim L As Long
Dim lig As Long
Application.ScreenUpdating = False
L = 2
Set F = Sheets("Feuil2")
dercol = F.Cells(1, F.Cells.Columns.Count).End(xlToLeft).Column
For C = 1 To dercol
If F.Cells(1, C) = "AUTRE MATERIEL DEJA RENSEIGNE ?" Then
derlig = F.Cells(Rows.Count, C).End(xlUp).Row
F.Range(Cells(2, C), Cells(derlig, C)).Copy
F.Cells(L, "H").PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
True, Transpose:=False
L = F.Cells(Rows.Count, 8).End(xlUp).Row + 1
End If
Next C
 
Dim X As Long
Dim ligH As Long
ligH = F.Cells(Rows.Count, "H").End(xlUp).Row
For X = ligH To 2 Step -1
If Cells(X, "H").Value = "" Then Cells(X, "H").Delete xlUp
Next X
 
 
Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub

à tester

**esmee88** · 14/10/2020, 14h54

Super il détecte les éléments par contre il ne les colle pas au bon endroit.
Il faudrait que les données se décalent comme indiqué par les flèches.

**BENNASR** · 14/10/2020, 15h05

si toutes les colonne à droite sont réservées à mettre oui ou non et que le tableau s’arrête à la colonne M ... pourquoi faire copier ??
je peux faire simplement acec

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Sub rassembler()
Dim dercol As Long
Dim F As Worksheet
Dim C As Integer
Dim derlig As Long
Dim L As Long
 
Application.ScreenUpdating = False
 
Set F = Sheets("Feuil2")
dercol = F.Cells(1, F.Cells.Columns.Count).End(xlToLeft).Column
derlig = F.Cells(Rows.Count, "A").End(xlUp).Row
For L = 2 To derlig
For C = 9 To 13
If F.Cells(L, C) <> "" Then F.Cells(L, "H") = F.Cells(L, C)
Next C
Next L
Application.ScreenUpdating = True
End Sub

**esmee88** · 14/10/2020, 15h11

Le problème est qu'en réalité il n'y pas simplement des "oui" ou des "non" et le nombre de colonnes est complètement aléatoire.
En réalité, il s'agit de l'export Excel de fiches d'interventions de technicien fonctionnement sur la base d'un logigramme.
Les étapes peuvent être de 2 comme de 100 en fonction des éléments de réponse des techniciens.
L'une des étapes s'appelle "Autre matériel" mais il y en a plein d'autre.

**BENNASR** · 14/10/2020, 15h14

voir avec ça:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Sub rassembler()
Dim dercol As Long
Dim F As Worksheet
Dim C As Integer
Dim derlig As Long
Dim L As Long
Dim lig As Long
Application.ScreenUpdating = False
L = 2
Set F = Sheets("Feuil2")
dercol = F.Cells(1, F.Cells.Columns.Count).End(xlToLeft).Column
derlig = F.Cells(Rows.Count, "A").End(xlUp).Row
For L = 2 To derlig
For C = 9 To derlig
If F.Cells(L, C) <> "" And F.Cells(1, C) = "AUTRE MATERIEL DEJA RENSEIGNE ?" Then F.Cells(L, "H") = F.Cells(L, C)
Next C
Next L
Application.ScreenUpdating = True
End Sub

**BENNASR** · 14/10/2020, 15h18

code modifié pour ne prendre que les "OUI" et les "NON"

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Sub rassembler()
Dim dercol As Long
Dim F As Worksheet
Dim C As Integer
Dim derlig As Long
Dim L As Long
Dim lig As Long
Application.ScreenUpdating = False
L = 2
Set F = Sheets("Feuil2")
dercol = F.Cells(1, F.Cells.Columns.Count).End(xlToLeft).Column
derlig = F.Cells(Rows.Count, "A").End(xlUp).Row
For L = 2 To derlig
For C = 9 To derlig
If F.Cells(L, C) = "OUI" Or F.Cells(L, C) = "NON" And F.Cells(1, C) = "AUTRE MATERIEL DEJA RENSEIGNE ?" Then F.Cells(L, "H") = F.Cells(L, C)
Next C
Next L
Application.ScreenUpdating = True
End Sub

**esmee88** · 14/10/2020, 15h38

Ca fonctionne avec ce cas mais pas avec celui ci

Je suis un gros boulet.
Ici c'est la colonne cocher que je veux déplacer, je ne comprend pas pourquoi

**BENNASR** · 14/10/2020, 15h42

ou copier les données de la colonne coché ?? toujours en colonne H ??

**esmee88** · 14/10/2020, 15h48

On colle les donnees dans la colonne conforme non conforme. Elle etait préalablement situé à la colonne H mais j’ai du supprimer des colonnes pour des raisons de confidentialité

Copier et coller des valeurs de colonnes en fonction de leurs noms

Macros et VBA Excel

Discussions similaires

Partager

Partager