Besoin d'aide en VBA Excel Concatener + déplacement de donnée

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : Besoin d'aide en VBA Excel Concatener + déplacement de donnée

valerypetit

mode initiative

Bonjour

Voilà j'essaie de faire une macro permettant de concaténer des valeurs sur une ligne et de mettre en forme un tableau en fonction de paramètres situées sur la même ligne.

J'ai atteint ici mes limites dans le copier/coller de code trouvé sur le net et de quelques lignes faites par déductions. Donc si vous pensez pouvoir apporter juste un petit bout de code, conseil ou correction n'hésiter pas, je ne vous demande pas de tout me fournir clef en mains mais, de m'aider pour avancer.

J'ai fait (En partie) la première partie : ouvrir la feuille, Créer un nouvelle onglet "ES" concaténer les cellules et coller la désignation à côté.
Voici le lien qui va bien: https://we.tl/vhaSg8vaSB

Pour résumer, (J'ai supprimé un grand nombre de colonnes pour simplifier et ne garder que l'essentiel)
Sur une même ligne j’aurai :

- Les cellules à concaténer (réf de l'élément)
- la désignation
- la validation de la ligne dans la catégorie "lot électrique"
- la présence d'un sectionneur de proximité ou non "IS"
- la présence d'un variateur de vitesse ou non
- la présence d'un démarreur ou non
- le nombre d'entrée Tor
- le nombre de sortie Tor
- le nombre d'entrée analogique
- le nombre de sortie analogiques
- le nombre d'entrées rtd

Ce qu’il reste à faire :

- Ajouter le jour est l'heure au nom de l'onglet pour éviter les bugs en cas d'exécutions multiple de la macro (pas primordial).

- le nombre de colonnes pouvant varier, il faudrait leur donner une position relative.
En début d'exécution je cherche les colonnes qui m'intéresses et je note leurs position dans une variable qui sera utilisée ensuite. (La manœuvre pouvant être faite manuellement en complétant les cases de l'onglet "Macro" si c'est trop compliqué (j'ai pas réussi, il en reste des traces dans la macro).

- Ne concaténer que les cellules ayant sur la même ligne un "O" dans la colonne "lot-électrique" et s'arrêter à la dernière ligne non vide du tableau (pas la première ligne vide rencontrée....).

- Créer sous chaque lignes concaténée un tableau comprenant les nombres de cellules indiqué dans les paramètres de nombre d'entrée/sortie (voir exemple dans Macro LEQ.xlsm dans l'onglet "Forme Tableau" )
Ne pas créer de tableau si case vide ou égale à 0

Je pense que c'est tout dans un premier temps.
Cette macro a principalement pour but de simplifier un travail de recopie en évitant les erreurs et oubli.
Une fois les tableau dimensionnés je n'ai plus qu'à les compléter ou à les réagencer en fonction de mes besoins.

Merci d'avance pour votre aide.

Valery

Message édité par valerypetit le 30-09-2017 à 19:14:34

---------------
Il y a deux choses d'infini au monde : l'univers et la bêtise humaine... mais pour l'univers j'en suis pas très sûr

Publicité

valerypetit

mode initiative

Bonjour,

Pas beaucoup de réponses....
je pense avoir donnée trop de détail, désolé de vous avoir fais peur.....

je m'en suis sortie en faisant des copier/coller sur internet.
quelques seconde d’exécution, il est probable que ça ne soit pas optimisé.
si vous avez des conseilles n'hésitez pas.

Code :

'
' Attention s'assurer qu'aucune cellule ne soit cachée
'
Sub OuvrirFichier()
'On reléve les positions des colonnes
Dim rRepère As Range
Dim strRepère As String
Dim rFinCourse As Range
Dim strFinCourse As String
Dim rVarFreq As Range
Dim strVarFreq As String
Dim rLot_Élec As Range
Dim strLot_Élec As String
Dim rIS As Range
Dim strIS As String
Dim rETor As Range
Dim strETor As String
Dim rSTor As Range
Dim strSTor As String
Dim rEAna As Range
Dim strEAna As String
Dim rSAna As Range
Dim strSAna As String
Dim rERTD As Range
Dim strERTD As String
Dim objNomFichier As Range, PlageDeRecherche As Range
Dim NomFichier As String, strNomFichier As String
Dim i As Long, j As Long
j = 2
'<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
' On ouvre le fichier dont le nom est présent dans la cellule C5
Set objNomFichier = Range("C5" )
strNomFichier = ActiveWorkbook.FullName
strNomFichier = Left(strNomFichier, InStrRev(strNomFichier, "\" ))
NomFichier = strNomFichier & "\" & objNomFichier.Value
Workbooks.Open (NomFichier)
Set objNomFichier = Nothing
' On crée l'onglet "ES"
Dim strNomOnglet As String, AdresseTrouvee As String
'Jour = Day(Now)
'Heure = Hour(Now)
'strNomOnglet = "ES" & Jour & Heure
Sheets.Add After:=ActiveSheet
ActiveSheet.Name = "ES"
'<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
' on essai de trouver les mots voulu dans la ligne 6 de la feuille "LEQ"
Sheets("LEQ" ).Select
'Set PlageDeRecherche = Sheets(LEQ).Range("A6:Az6" )
Set rRepère = Range("A5:BZ6" ).Find("Repère" )
strRepère = Split(Columns(rRepère.Offset(0, 1).Column).Address(ColumnAbsolute:=False), ":" )(1)
' strFinCourse = Range("C11" )
Set rLot_Élec = Range("A5:BZ6" ).Find("Lot Élec (O/N)" )
strLot_Élec = Split(Columns(rLot_Élec.Column).Address(ColumnAbsolute:=False), ":" )(1)
Set rETor = Range("A5:BZ6" ).Find("E TOR" )
strETor = Split(Columns(rETor.Column).Address(ColumnAbsolute:=False), ":" )(1)
Set rSTor = Range("A5:BZ6" ).Find("S TOR" )
strSTor = Split(Columns(rSTor.Column).Address(ColumnAbsolute:=False), ":" )(1)
Set rEAna = Range("A5:BZ6" ).Find("E ANA" )
strEAna = Split(Columns(rEAna.Column).Address(ColumnAbsolute:=False), ":" )(1)
Set rSAna = Range("A5:BZ6" ).Find("S ANA" )
strSAna = Split(Columns(rSAna.Column).Address(ColumnAbsolute:=False), ":" )(1)
Set rERTD = Range("A5:BZ6" ).Find("E RTD" )
strERTD = Split(Columns(rERTD.Column).Address(ColumnAbsolute:=False), ":" )(1)
Set rVarFreq = Range("A5:BZ6" ).Find("Var. Fq (O/N)" )
strVarFreq = Split(Columns(rVarFreq.Column).Address(ColumnAbsolute:=False), ":" )(1)
Set rIS = Range("A5:BZ6" ).Find("Avec retour de contact" )
strIS = Split(Columns(rIS.Column).Address(ColumnAbsolute:=False), ":" )(1)
Range("ES!B" & j).Value = "PID"
Range("ES!C" & j).Value = "Désignation"
Range("ES!D" & j).Value = "E TOR"
Range("ES!E" & j).Value = "S TOR"
Range("ES!F" & j).Value = "E ANA"
Range("ES!G" & j).Value = "E RTD"
Range("ES!H" & j).Value = "S ANA"
Range("ES!I" & j).Value = "Var.Fq"
Range("ES!J" & j).Value = "Dém"
Range("ES!K" & j).Value = "IS"
'<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
'On Concaténe jusqu'à la dérniére ligne non vide
Nb_ligne = Range("A65536" ).End(xlUp).Row
For Each c In Range("E8:E" & Nb_ligne)
' on Control la présence d'un "O" dans le Lot_Elec
Ligne = c.Row
'If Range("LEQ!B" & ligne).Value = "306" Then
If Range(strLot_Élec & Ligne).Value = "O" Then
Concat = c.Value
For i = 1 To 5
Concat = Concat & c.Offset(0, i)
Next
'<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
j = j + 1
'On Copie dans la feuille ES
Range("ES!B" & j).Value = Concat ' colonne qui affichera le resultat ( ici colonne B)
Range("ES!C" & j).Value = Range("LEQ!K" & Ligne).Value 'Désignation
Range("ES!D" & j).Value = Range("LEQ!AW" & Ligne).Value 'E TOR
Range("ES!E" & j).Value = Range("LEQ!AX" & Ligne).Value 'S TOR
Range("ES!F" & j).Value = Range("LEQ!AY" & Ligne).Value 'E Ana
Range("ES!G" & j).Value = Range("LEQ!AZ" & Ligne).Value 'E RTD
Range("ES!H" & j).Value = Range("LEQ!BA" & Ligne).Value 'S ANA
Range("ES!I" & j).Value = Range("LEQ!AO" & Ligne).Value 'Var.Freq
Range("ES!J" & j).Value = Range("LEQ!AP" & Ligne).Value 'Dém
Range("ES!K" & j).Value = Range("LEQ!AU" & Ligne).Value 'IS
End If
Next
'<<<<<<<<<<<<<<<<<<<<<< Mise en forme Tableau <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
Sheets("ES" ).Select
Range("B2:K2" ).Font.Bold = True
Range("B2:K2" ).HorizontalAlignment = xlCenter
Range("B2:K2" ).VerticalAlignment = xlBottom
' On supprime les espaces dans les désignation
Columns("C:C" ).Select
Selection.Replace What:=" ", Replacement:="_", LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
Cells.Select
Cells.EntireColumn.AutoFit
'On ajoute les bouton pour la macro suivante
ActiveSheet.Buttons.Add(800, 70, 100, 30).Select
Selection.OnAction = "triage_pid"
Selection.Characters.Text = "Triage PID"
ActiveSheet.Buttons.Add(800, 120, 100, 30).Select
Selection.OnAction = "Formater_Tableau"
Selection.Characters.Text = "Mise en Forme"
Range("A1" ).Select
End Sub
'<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
Sub triage_pid()
' On tri les PID
Dim rPlage_tri As Range
Set rPlage_tri = ActiveSheet.Range("B3:K" & Range("B" & Rows.Count).End(xlUp).Row)
rPlage_tri.Sort Key1:=Range("B4" ), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, Orientation:=xlTopToBottom
End Sub

le projet a beaucoup évolué et je doit maintenant créer un petit csv pour alimenter un logiciel.
beaucoup de choses à apprendre et des belles heure à me tirer les cheveux.

Petite question,
je voudrais déffinir une plage en fonction d'une ligne qui s'incrémente
et décaller cette plage à chaques incrémentation

Code :

Ligne_Ecrit = Ligne_Ecrit + 1
Set maplage = Range("Tableau!C"&Ligne_Ecrit&":H"&Ligne_Ecrit)

quelqu'un saurait corriger ma seconde ligne????

Merci d'avance ;-)

---------------
Il y a deux choses d'infini au monde : l'univers et la bêtise humaine... mais pour l'univers j'en suis pas très sûr

Takama13

Salut,

Je pense que cela doit plutôt être :

Code :

Set maplage = Sheets("Tableau" ).Range("C"&Ligne_Ecrit&":H"&Ligne_Ecrit)

valerypetit

mode initiative

Merci, ça fonctionne parfaitement.

je ne comprend pas, j'ai aussi le petit bout de code suivant:

Code :

For Each i In Range("G3:G" & Nb_ligne)
If Range("G" & Ligne_Lect) = 1 Then
Range("Liste ES!B" & Ligne_Ecrit).Value = Range("Tableau!H" & Ligne_Lect).Value 'E Tor
Range("Liste ES!C" & Ligne_Ecrit).Value = Range("Tableau!I" & Ligne_Lect).Value 'Mnémonique
Range("Liste ES!D" & Ligne_Ecrit).Value = Range("Tableau!D" & (Ligne_Lect)).Offset(-1, 0).Value 'PID
End If
Ligne_Lect = Ligne_Lect + 1
Next

Qui me renvoi un défaut: "Erreur '1004' : la méthode range de l'objet _global a échoué......

Pourtant je l'ai utilisé plusieurs fois, y compris dans mon premier code posté et là je ne trouve pas le problème.....

PS : "Tableau" et "ES" sont les noms de mes feuilles. Elles sont présentes sur le même classeur.

Message cité 1 fois
Message édité par valerypetit le 06-10-2017 à 09:44:43

---------------
Il y a deux choses d'infini au monde : l'univers et la bêtise humaine... mais pour l'univers j'en suis pas très sûr

milfeuilles

BF1: superbanane

valerypetit a écrit :

Merci, ça fonctionne parfaitement.

je ne comprend pas, j'ai aussi le petit bout de code suivant:

Code :

For Each i In Range("G3:G" & Nb_ligne)
If Range("G" & Ligne_Lect) = 1 Then
Range("Liste ES!B" & Ligne_Ecrit).Value = Range("Tableau!H" & Ligne_Lect).Value 'E Tor
Range("Liste ES!C" & Ligne_Ecrit).Value = Range("Tableau!I" & Ligne_Lect).Value 'Mnémonique
Range("Liste ES!D" & Ligne_Ecrit).Value = Range("Tableau!D" & (Ligne_Lect)).Offset(-1, 0).Value 'PID
End If
Ligne_Lect = Ligne_Lect + 1
Next

Qui me renvoi un défaut: "Erreur '1004' : la méthode range de l'objet _global a échoué......

Pourtant je l'ai utilisé plusieurs fois, y compris dans mon premier code posté et là je ne trouve pas le problème.....

PS : "Tableau" et "ES" sont les noms de mes feuilles. Elles sont présentes sur le même classeur.

Salut !

Peut-être est-ce lié au fait que ta variable i est définie en tant que "long", alors que vba attend une variable "range".

valerypetit

mode initiative

le code plus haut fonctionne et "j" est définie en tant que "long"......

mais j'ai effectivement: Dim Ligne_Lect As Long, Ligne_Ecrit As Long

j'ai passé le Dim en commentaire pour que la variable devienne de type "Variant" mais ça ne change rien....

Voici le code complet.

Code :

Sub Liste_ES()
Dim Ligne_Lect As Long, Ligne_Ecrit As Long, Colonne_Lect As Long
Ligne_Lect = 4
Ligne_Ecrit = 4
Colonne_Lect = 7
'Création d'un nouvel onglet
Sheets.Add After:=ActiveSheet
ActiveSheet.Name = "Liste ES"
Rows("3:3" ).Select
Selection.Font.Bold = True
Range("3:3" ).HorizontalAlignment = xlCenter
Range("3:3" ).VerticalAlignment = xlCenter 'xlBottom
' On définit la taille du tableau dans la page "ES"
Sheets("Tableau" ).Select
Nb_ligne = Range("D65536" ).End(xlUp).Row
' On copie le tableau des entrées TOR
For Each i In Range("G3:G" & Nb_ligne)
If Range("G" & Ligne_Lect) = 1 Then
Range("Liste ES!B" & Ligne_Ecrit).Value = Range("Tableau!H" & Ligne_Lect).Value 'E Tor
Range("Liste ES!C" & Ligne_Ecrit).Value = Range("Tableau!I" & Ligne_Lect).Value 'Mnémonique
Range("Liste ES!D" & Ligne_Ecrit).Value = Range("Tableau!D" & (Ligne_Lect)).Offset(-1, 0).Value 'PID
End If
Ligne_Lect = Ligne_Lect + 1
Next
Sheets("Liste ES" ).Select
End Sub

Message édité par valerypetit le 06-10-2017 à 11:01:28

---------------
Il y a deux choses d'infini au monde : l'univers et la bêtise humaine... mais pour l'univers j'en suis pas très sûr

milfeuilles

BF1: superbanane

J'ai fait plusieurs essais, apparemment c'est la syntaxe de "Range" qui est capricieuse.
Cette ligne-ci semble fonctionner par intermittence, il semble qu'Excel l'admette, mais pas tout le temps:

Code :

Range("Liste ES!B" & Ligne_Ecrit).Value

Le "bon" code est celui-ci, comme indiqué par Takama13:

Code :

Worksheets("Liste ES" ).Range("B" & Ligne_Ecrit).Value

J'ai testé, j'ai bien l'erreur avec la première syntaxe et ça fonctionne avec la seconde. Ecrire le nom de la feuille dans le "Range" ne serait donc pas correct.

Message cité 1 fois
Message édité par milfeuilles le 06-10-2017 à 13:32:02

valerypetit

mode initiative

Super, ça fonctionne.
Du coup je pense que je vais devoir refaire mes autres modules pour éviter d'avoir des aléas à l'utilisation ;-)

merci pour ton aide

---------------
Il y a deux choses d'infini au monde : l'univers et la bêtise humaine... mais pour l'univers j'en suis pas très sûr

Marc L

Bonjour,

aucun caprice mais juste le B-A-BA d'Excel !

Quand il y a un espace il faut encadrer entre apostrophes, constatable dans une simple formule de feuille de calculs …

Message cité 1 fois

milfeuilles

BF1: superbanane

Marc L a écrit :

Bonjour,

aucun caprice mais juste le B-A-BA d'Excel !

Quand il y a un espace il faut encadrer entre apostrophes, constatable dans une simple formule de feuille de calculs …

Salut.

De quel espace parles-tu ?

Publicité

Marc L

milfeuilles a écrit :

J'ai fait plusieurs essais, apparemment c'est la syntaxe de "Range" qui est capricieuse.
Cette ligne-ci semble fonctionner par intermittence, il semble qu'Excel l'admette, mais pas tout le temps:

Code :

Range("Liste ES!B" & Ligne_Ecrit).Value

milfeuilles

BF1: superbanane

Et donc, quelle serait la bonne écriture pour mettre ce nom de page à l'intérieur du range ? J'avoue ne pas comprendre. Merci.

Marc L

Comme indiqué, une formule de calculs utilisant la bonne syntaxe, il suffit juste d'en créer une !

A la portée d'un débutant - des mômes ayant réussi à le réaliser du premier coup - juste en ouvrant un classeur avec au moins
deux feuilles de calculs, effectuer une saisie dans une cellule.

Si besoin modifier le nom de la feuille devant comporter au moins un espace.

Sur l'autre feuille, commencer la formule par le signe = puis activer la feuille précédente, sélectionner la cellule saisie et valider.
La cellule affichant donc la saisie de l'autre feuille, juste regarder la syntaxe de la formule, est-ce si compliqué ?! …

FORUM HardWare.fr

Programmation

VB/VBA/VBS

Besoin d'aide en VBA Excel Concatener + déplacement de donnée

Sujets relatifs
VBA : adapter un userform à plusieurs feuilles	Remplacer le contenu d'une colonne dans ma base de donnée SQL
[Résolu] Aide URL Rewriting	VBA copier une valeur d'un tableau acces vers un autre sous condition
SAP SQL Importer un fichier excel	VBA word supprimer lignes en doubles
VBA BO afficher le gestionnaire de rapport	Besoin d'un coup de pouce en CSS
Executer du code VBA sur un outil web
Plus de sujets relatifs à : Besoin d'aide en VBA Excel Concatener + déplacement de donnée

Page générée en 0.120 secondes