population d'un array en selectionnant un range

Bonjour a vous tous,


J'ai deux array a remplir mais j'ai 725 numéro à saisir pour chacun des array. Le premier array est une valeur de départ et le second array est la valeur d'arriver.


Afin d'éviter les erreurs de saisies et avoir également un gain de temps, je voudrais avoir une fonction ou une sub permettant d'avoir chacune des valeurs d'un range le tout entre parenthèse et séparé de virgule afin que je puisse faire un copier coller dans mon autre code. Étant donné que je prends les informations d'un fichier "temporaire", je voudrais prendre ces informations et les coller dans un code.


Par exemple j'aurais le range ("a1:a5)

a1=2
a2=6
a3=7
a4=2
a5=9

et je voudrais pouvoir avoir (2,6,7,2,9)


Je sais qu'il existe WorksheetFunction.Transpose et application.transpose mais toute mes tentatives ont été des échecs en essayant d'utilisé ces functions






merci pour votre aide qui m'est très précieuse !!

Mauvaise idée de les transcrire en dur dans le code.
Par contre tu peux faire
Tablo=range("a1:a200")

Bonjour

Il semble que tu veuilles que ces données d'une plage soient mises dans un array et non une matrice.
La chose est certes réalisable (assez facilement), mais le jeu en vaut-il la chandelle ?
Quel est le but final ?
En d'autres termes, à quoi, très précisément, veux-tu ensuite utiliser cet array ?
Ta réponse nous permettra de déterminer s'il est vraiment indispensable d'utiliser un array ou si une matrice (voir la réponse de Mercatog, que je salue) peut également faire l'affaire

Bonjour a vous tous, (mercatog et unparia :salut:)



Pour faire un histoire courte, j'ai des doublons dans une base de donné, j'ai environ 725 doublons que nous avons désactiver et qu'il risque d'avoir des problèmes d'intégrations dans mon logiciel. JE veux donc remplacer les 725 doublons par des numéro d'actif.


Ce que j'ai pensé c'Est ceci (mercatog m'a aidé à faire le code dans un précédent code étant donné que je commence a peine a utilisé les array)

Code:

---

1 2 3 4 5 6 7 8

valeur_depart = Array(99, 262, 264, 270, 273, 274, 276, 277, 278, 282, 283, 285, 291, 294, 295, 301, 306, 444, 475, 476, 479, 480) valeur_voulu = Array(17, 261, 261, 267, 271, 272, 261, 269, 261, 260, 271, 258, 271, 269, 254, 271, 296, 435, 261, 474, 427, 258)   For i = 0 To UBound(valeur_depart)   Range("no_format_travail").Replace What:=valeur_depart(i), Replacement:=valeur_voulu(i), LookAt:=xlWhole   Next i

---

Il manque énormément de valeur dans mes array et en saisisant j'ai constaté qu'il est tres facile de faire des erreurs.


J'ai une liste dans un fichier excel des doublons et leur équivalent en produit actif, mais je voudrais éviter de trainer dans mon document de travail une copie de cette feuille.



JE veux donc trouver une solution pour éviter de saisir les 725 doublons et 725 équivalent et les erreurs toute en évitant de trainer un autre feuille dans mon fichier de travail.


Il y a peut être d'autre solution plus rapide et aussi efficace



en vous remerciant !!!

Bonjour
ça ne serait pas opportun de dédier deux colonnes d'une feuille du classeur qui permettra de changer l'ancienne valeur par la nouvelle!

Coder un array en dure de 750 valeurs... quelle est la valeur ajouté ou l'utilité.

En plus, est ce que ceci est répétitif ou sur un seul fichier

Bonjour mercatog

Citation:

---

ça ne serait pas opportun de dédier deux colonnes d'une feuille du classeur qui permettra de changer l'ancienne valeur

---

Pour cette question, oui il serait possible que je copie la feuille ayant les colonne des doublons ainsi que le produit a pointé.

Citation:

---

Coder un array en dure de 750 valeurs... quelle est la valeur ajouté ou l'utilité.

---

Étant donné que je connais pas d'autre solution dû a mon niveau de VBA c'Est à ce que j'ai aboutie. Effectivement 750 valeur X2 c'Est plus que pénible. Donc c'Est le poruqoi de vouloir "by passer" cette étape

Citation:

---

En plus, est ce que ceci est répétitif ou sur un seul fichier

---

C'est pour mettre dans un code dans mon personnal.xlsb dans un fichier e travail qui va etre utilisé a plusieurs reprise. Donc cette conversion est pour un fichier qui va etre réutilisé.





Possiblement que vous avez de meilleur solution que les arrays.



J'attends donc de vos nouvelles, chers ami :chin:

Bonsoir
Personnellement je ferai une feuille à part avec 2 colonnes A: Ancienne valeur, B nouvelle valeur

Sur ma feuille de travail, J'insère une nouvelle colonne juste après la colonne à corriger où je ferai une recherchev. Ensuiteje fige les résultats et je supprime la colonne A (l'ancienne)

en B2 (colonne insérée)

Code:

---

=SIERREUR(RECHERCHEV($A2;Clients!$A:$B;2;FAUX);$A2)

---

Ceci pourra être traduit par vba

Bonjour mercatog,

Pour pouvoir faire cette manipulation, je devrais également saisir les non doublons avec leur équivalence qui est la meme dans la seconde colonne. J'ai environ 22000 ligne que je devrais alors saisir.


Sinon c'Est de faire une recherchev copier seulement ceux qui ont des données le hic c'Est que j'utilise le document de travail jusqu'à 15 fois par jour ... donc 15 fois la recherchev, ce n'est pas efficace.


SI je le fais en code, je dois faire recherchev pour chacun des formats, voir si la valeur retourner est différente que #n/a, si c'est le cas la valeur le numéro de format prends la nouvelle valeur ... le temps d'exécution doit etre assez long, je fais parfois des recherchev sur une boucle et c'Est assez lents.


Je pense que des rechercher / remplacer sur une colonne est plus rapide qu'une boucle combiner de recherchev avec des if ... J'ai peut être tord ?

La formule tient compte des n/a. Sans doublons
Faisable en vba sans boucle

Reste à verifier le temps d'execution par rapport à une boucle de recherche/ remplace 750 fois.

Mais ecrire le tableau en dur dans le code est la pire des choses

Ce qui m'interpelle fortement c'est ceci :

Citation:

---

Pour faire un histoire courte, j'ai des doublons dans une base de donné, j'ai environ 725 doublons que nous avons désactiver et qu'il risque d'avoir des problèmes d'intégrations dans mon logiciel. JE veux donc remplacer les 725 doublons par des numéro d'actif.

---

- dans quelles circonstances exactes cela peut-il se produire ?
- le remplacement est-il SYSTEMATIQUEMENT le même (ce qui donnerait à penser à des idarts différents dans un fichier et l'autre pour un même article)

Ces informations précises seront probablement le fil conducteur de la stratégie à adopter ;)

Bonjour mercatog et unparia,


Étant donné que ma colonne de format en question a un étiquette nom, je devrais alors transférer les résultat dans celle-ci au lieu de la supprimé (situation présenté par mercatog)


j'essaie de voir comment faire le tout sans boucle mais je n'ai pas de lumière qui s'allume. :marteau:


Comment je vois présentement le code avec mon niveau de vba créer une colonne en suite faire une boucle pour chacune des lignes de format de mon fichier faire une recherchev afin de trouver si oui ou non il y a un équivalence, mettre le résultat dans a nouvelle colonne. SI la valeur de la nouvelle colonne diffère de #n/a alors on copie la valeur de la nouvelle colonne dans le format. A la toute fin, apres la boucle on supprime la colonne temporaire.

Pour l'intervention de unparia,

Citation:

---

dans quelles circonstances exactes cela peut-il se produire ?

---

Si on parle des doublons, il y a avait plusieurs personne qui pouvait créer des nouveaux formats et il y a un erreur de programmation de notre logiciel qui fait que certains filtre ne fonctionnais pas comme il le faut ... Cette situation est "semi" corrigé, on a restraint l'acces a la création de format a 2 personnes et les 2 personnes sont au courant des problèmes de filtre. Oui j'avoue que ce n'est pas a mon avis une vrai solution mais c'Est ce que l'on m'impose comme réalité.

Citation:

---

le remplacement est-il SYSTEMATIQUEMENT le même (ce qui donnerait à penser à des idarts différents dans un fichier et l'autre pour un même article)

---

Si je comprends bien cette question, est-ce que par exemple la valeur 2179 va toujours etes converti vers la 1, la réponse est oui.



merci beaucoup pour votre aide, c'Est apprécié les gars !!!

Bonjour

Supposons ta feuille à traiter s'appelle BD. Les codes à remplacer en colonne A

Et dans la feuille Tmp tu as en A1:A725 les codes à remplacer et en B1:B725 les codes de remplacement


30000 lignes traites en moins d'une seconde

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Sub Remp()   Application.ScreenUpdating = False With Worksheets("BD") .Columns(2).Insert .Range("B1").Value = .Range("A1").Value With .Range("B2").Resize(30000) .Formula = "=IFERROR(VLOOKUP($A2,Tmp!$A$1:$B$725,2,0),$A2)" .Value = .Value End With .Columns(1).Delete End With End Sub

---

Petit bémol, la colonne A de la feuille BD ne doit pas être source de formules dans d'autres cellules.

Bonjour,

je vous propose un arrêt sur un array :

https://didier-gonard.developpez.com...s-tableau-vba/

À lire mur à mur pour bien voir qu'en principe tout est déjà très (très) bien indiqué :)

Re-Salut,



Donc avec la solution de mercatog, j'ai une fenêtre mettre à jour les valeurs désactiver qui s'ouvre et je dois choisir un fichier ... j'ai choisis monfichier ayant les désactiver et les bons et cela ne fonctionne pas.


Si ma feuille de travail s'appelle Travaille, que la colonne ayant les formats a convertir s'il y a lieu est L, que ma feuille ayant les doublons et remplacement s'appelle Format à désactiver j'arrive à ceci

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Sub remp()   'Application.ScreenUpdating = False With Worksheets("Travail") .Columns("l:l").Insert .Range("l2").value = .Range("m2").value With .Range("l2").Resize(30000) .Formula = "=IFERROR(VLOOKUP($A2,Format à désactiver!$A$2:$B$727,2,0),$A2)" .value = .value End With .Columns("l:l").Delete End With End Sub

---

JE dois faire quelque chose de pas correct c'est sur ...



JE vais lire ce que Jean-Philippe m'a envoyé comme lien

Non, je parle du fait que la feuille se trouve sur le même classeur

Pour la colonne L

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Sub Remp()   Application.ScreenUpdating = False With Worksheets("Travail") .Columns(13).Insert 'Insert colonne entre la colonne L et la colonne M .Range("M1").Value = .Range("L1").Value With .Range("M2").Resize(30000) .Formula = "=IFERROR(VLOOKUP($L2,'Format à désactiver'!$A$1:$B$725,2,0),$L2)" .Value = .Value End With .Columns(12).Delete 'Supprime l'ancienne colonne L End With End Sub

---

Si les données sont dans un classeur externe, ça sera une autre manche.

Super, j'avais une faute de syntaxe dans la formule qui me faisait ouvrir la fenêtre. Surement que le nom n'était pas entre ' se qui est selon moi était la raison de l'apparission de la fenêtre


Tous semble fonctionné et ce très très vite sans boucle.


Petite question le resize est-ce le nombre de ligne que la formule est copié ???



vraiment un gros merci !!!!

:yaisse2::yaisse2::yaisse2:

Le seul hic que j'ai présentement étant donné que je détruit l'ancienne colonne, je perds mon étiquette nom ... donc est-il préférable d'ajouté le nom à la colonne ou plutot transférer les valeurs dans l'autre colonne et détruire la nouvelle au lieu de l'Ancienne ???

Code:

---

1 2	.Range("M1").Value = .Range("L1").Value

---

Cette ligne de code de transfert bien le nom! Non?


J'ai même fais une macro pour ouvrir le fichier étranger contenant les codes à corriger

Code:

---

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 33 34 35 36 37

Sub Remp() Dim Wbk As Workbook Dim Fichier   Fichier = Application.GetOpenFilename() If Fichier <> False Then Set Wbk = Workbooks.Open(Fichier) If FeuilleExiste(Wbk, "Format à désactiver") Then Fichier = Mid(Fichier, InStrRev(Fichier, "\") + 1) Fichier = "'[" & Fichier & "]Format à désactiver'!A$1:B$725" Application.ScreenUpdating = False With ThisWorkbook.Worksheets("Travail") .Columns(13).Insert 'Insert colonne entre la colonne L et la colonne M .Range("M1").Value = .Range("L1").Value With .Range("M2").Resize(30000) .Formula = "=IFERROR(VLOOKUP($L2," & Fichier & ",2,0),$L2)" .Value = .Value End With .Columns(12).Delete 'Supprime l'ancienne colonne L End With MsgBox "Traitement terminé" Else MsgBox "Mauvais fichier..." End If Wbk.Close False Set Wbk = Nothing Else MsgBox "Opération annulée..." End If End Sub     Private Function FeuilleExiste(ByVal Wbk As Workbook, ByVal Tmp As String) As Boolean   On Error Resume Next FeuilleExiste = Wbk.Sheets(Tmp).Index End Function

---

Bonjour mercatog

Citation:

---

Code:

---

1 2	Sub Remp() .Range("M1").Value = .Range("L1").Value

---

Cette ligne de code de transfert bien le nom! Non?

---

Il transfert le titre de la colonne mais pas le nom (.name)



JE ne sais pas si ceci est la version optimal

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

Sub remp() 'Application.ScreenUpdating = False With Worksheets("Travail") .Columns(13).Insert 'Insert colonne entre la colonne L et la colonne M .Range("M1").value = .Range("L1").value With .Range("M2").Resize(30000) .Formula = "=IFERROR(VLOOKUP($L2,'Format à désactiver'!$A$1:$B$725,2,0),$L2)" .value = .value End With .Columns(12).Delete 'Supprime l'ancienne colonne L   .Columns(12).Name = "no_format_travail"     End With End Sub

---

En renommant ici la colonne avec le nom de l'ancienne, je ne sais pas si cela peut causé un erreur dans le gestionnaire de nom

Citation:

---

Envoyé par jpvba

En renommant ici la colonne avec le nom de l'ancienne, je ne sais pas si cela peut causé un erreur dans le gestionnaire de nom

---

Tu n'as qu'à tester

Aucun problème

:mouarf::mouarf::mouarf::mouarf::mouarf::mouarf:

mercatog tu m'as fait pas mal rire ... a première vue tous semble correct il me reste à adapté le code afin de le rendre relatif. Relatif n'est peut etre pas le bon terme, ce que je veux dire c'Est avec le nom des colonnes et la première et dernière valeur au lieu que ce sois des nombres.



ou que je risque d'etre hors de ma zone de confort est d'ajusté la "formula" ... si je peut mettre des variable l'affaire est ketchup !!!


Si j'ai un embuche, je vous recontact ... si tous ce passe bien, je vais fermer le post



un gros merci !!!!!!!


:mrgreen::mrgreen::mrgreen:

Bonjour les amis,


J'arrive avec le code suivant :

Code:

---

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

Sub remp_relatif4()     Application.ScreenUpdating = False   supprNomRef   ActiveWorkbook.Names("no_format_travail").Name = "temporaire" Sheets("Travail").Columns([temporaire].Column + 1).Name = "no_format_travail"   With Worksheets("Travail")   .Columns([temporaire].Column + 1).Insert 'Insert colonne entre la colonne L et la colonne M .Columns([temporaire].Column + 1).Name = "no_format_travail" .Cells(1, [no_format_travail].Column) = .Cells(1, [temporaire].Column)     With .Range(TrouveLettreColonne([no_format_travail]) & 2).Resize(Cells(1, [prov_long_travail].Column).End(xlDown).Row - 1)   .Formula = "=IFERROR(VLOOKUP($L2,'Format à désactiver'!$A$1:$B$725,2,0),$L2)" .value = .value   End With .Columns([temporaire].Column).Delete 'Supprime l'ancienne colonne L     End With End Sub

---

Dont supprNomRef et TrouveLettreColonne

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Sub supprNomRef() Dim Nms As Name For Each Nms In Names If Nms Like "*[#]REF!*" Then Nms.Delete Next Nms End Sub   Public Function TrouveLettreColonne(ByVal ColonneCherche As Range) As String   TrouveLettreColonne = Split(Columns(ColonneCherche.Column).Address(ColumnAbsolute:=False), ":")(1)   End Function

---

Où que je frappe un mur c'Est la fameuse partie

Code:

---

.Formula = "=IFERROR(VLOOKUP($L2,'Format à désactiver'!$A$1:$B$725,2,0),$L2)"

---

Comment faire pour remplacer le L par TrouveLettreColonne ([Temporaire]) et la partie $A$1:$B$725 par du VBA ???


merci mille fois !!!

Salut,

dans l'idée

Code:

---

1 2 3

dim lettre AS string lettre= TrouveLettreColonne (Range("Temporaire").Value) .Formula = "=IFERROR(VLOOKUP($"& lettre & "2,'Format à désactiver'!$A$1:$B$725,2,0),$" & lettre & "2)"

---

Génial !!!


Donc

Code:

---

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 33 34 35 36

Sub remplacement_format() Dim lettre_chercher As String Dim nbre_ligne As String     nbre_ligne = LastLignUsedInSheet("Format à désactiver")     Application.ScreenUpdating = False     supprNomRef   ActiveWorkbook.Names("no_format_travail").Name = "temporaire" lettre_chercher = TrouveLettreColonne([temporaire])   Sheets("Travail").Columns([temporaire].Column + 1).Name = "no_format_travail"   With Worksheets("Travail")   .Columns([temporaire].Column + 1).Insert 'Insert colonne entre la colonne L et la colonne M .Columns([temporaire].Column + 1).Name = "no_format_travail" .Cells(1, [no_format_travail].Column) = .Cells(1, [temporaire].Column)     With .Range(TrouveLettreColonne([no_format_travail]) & 2).Resize(Cells(1, [prov_long_travail].Column).End(xlDown).Row - 1)   .Formula = "=IFERROR(VLOOKUP($" & lettre_chercher & "2,'Format à désactiver'!$A$1:$B$" & nbre_ligne & ",2,0),$" & lettre_chercher & "2)" .value = .value   End With .Columns([temporaire].Column).Delete 'Supprime l'ancienne colonne L     End With End Sub

---

Dernière question. J'ai essayé de remplacer initialement le $A$1:$B$725 par une variable équivalente a un range mais cela n'a pas fonctionné .. Est-ce que la bonne ponctuation aurais été $nom_du_range$

merci encore mille fois !!!!!

J'ai trouver par essaie et erreur ...

Code:

---

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 33 34 35 36

Sub remp_relatif6() Dim lettre_chercher As String       Sheets("Format à désactiver").Range("a2:b" & LastLignUsedInSheet("Format à désactiver")).Name = "plage_cherche"   Application.ScreenUpdating = False     supprNomRef   ActiveWorkbook.Names("no_format_travail").Name = "temporaire" lettre_chercher = TrouveLettreColonne([temporaire])   Sheets("Travail").Columns([temporaire].Column + 1).Name = "no_format_travail"   With Worksheets("Travail")   .Columns([temporaire].Column + 1).Insert 'Insert colonne entre la colonne L et la colonne M .Columns([temporaire].Column + 1).Name = "no_format_travail" .Cells(1, [no_format_travail].Column) = .Cells(1, [temporaire].Column)     With .Range(TrouveLettreColonne([no_format_travail]) & 2).Resize(Cells(1, [prov_long_travail].Column).End(xlDown).Row - 1)     .Formula = "=IFERROR(VLOOKUP($" & lettre_chercher & "2,plage_cherche,2,0),$" & lettre_chercher & "2)" .value = .value   End With .Columns([temporaire].Column).Delete 'Supprime l'ancienne colonne L     End With End Sub

---

Est-ce la seule solution i.e. utiliser un nom au lieu d'une variable range ???

Tu peux utiliser TaVariableRange.Address au lieu de A1B725

Bonjour

Une autre approche, Utiliser les offset et resize avec:

Insertion d'une ligne colonne X juste après la plage à traiter
Inscrire la formule dans la nouvelle lignecolonne
Transférer leur valeur dans la plage initiale
Supprimer la lignecolonne X

Pas besoin de renommer la plage, ni chercher la lettre

Code:

---

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 33 34 35 36 37

Option Explicit   Sub Remp_relatif5() Dim NomPlage As String, Ex As String Dim Plage As Range Dim N As Long   Application.ScreenUpdating = False   SupprNomRef   With Worksheets("Format à désactiver") N = .Cells(.Rows.Count, 1).End(xlUp).Row End With   NomPlage = "no_format_travail" With Worksheets("Travail") Set Plage = .Range(NomPlage) Set Plage = Plage.Offset(1).Resize(Plage.Rows.Count - 1) 'Ligne à supprimer au cas ou no_format_travail n'englobe pas la ligne des titres With Plage Ex = .Item(1, 1).Address(0, 1) .Offset(, 1).EntireColumn.Insert .Offset(, 1).Formula = "=IFERROR(VLOOKUP(" & Ex & ",'Format à désactiver'!$A$1:$B$" & N & ",2,0)," & Ex & ")" .Value = .Offset(, 1).Value .Offset(, 1).EntireColumn.Delete End With Set Plage = Nothing End With End Sub   Private Sub SupprNomRef() Dim Nms As Name   For Each Nms In Names If Nms Like "*[#]REF!*" Then Nms.Delete Next Nms End Sub

---

merci beaucoup pour votre participation


sans votre aide je serais encore au point de départ.



amicalement JP