insérer dans une variable deux cellules discontinues

Bonjour
J'essaie depuis quelques heures mais en vain de declarer dans une variable deux cellules discontinues.

je suis en train de créer un petit fichier qui recupère les données de cellules d'un fichier et les copies.
Lorsque j'ai deux cellules à copier tout va bien, la formule ci dessous fonctionne trés bien

Code:

---

1 2 3

Set MyExport = .Application.Union(Range("A148"), Range("H148")) MyExport.Copy WbStat.Worksheets("trafic").Range("F1").End(xlDown).Offset(1, 0).PasteSpecial (xlPasteValues)

---

Mais là ou je bloque c'est lorsque je dois travailler avec 3 cellules.
Si on prend exemple sur la photo ci dessous.
Comment faire pour créer une cellule issu de la concaténisation de la cellule cadence en A140 et de la cellule matin en B139).
Et ensuite recuperer cette cellule et l'insérer dans la l'application.union comme ci dessous

Code:

---

1 2 3 4

Dim concatene As Range Set concatene = .Range("A140") & "/" & Range("B139") Set MyCadenceMatin = .Application.Union(concatene, Range("B145")) WbStat.Worksheets("trafic").Range("F1").End(xlDown).Offset(1, 0).PasteSpecial (xlPasteValues)

---

mais ce code ne fonctionne pas

Pièce jointe 595876

Salut , je comprends pas ou tu bloque ?

Soit tu enregistre tes valeurs de cellules dans une variable (1 par cellule) soit tu peux enregistrer ses valeurs dans un tableau.

Par contre fais attention en VBA il faut toujours préciser l'environnement de travail, a minima la feuille dans laquelle tu vient chercher/apporter des informations. Du genre

Code:

---

Feuil1.range("A1").value = feuil1.range("A2").value

---

La précision de l'adresse de la feuille doit être faite a chaque fois, sous peine d'avoir une erreur de compilation ou pire que ca prenne la feuille active par défaut. Ici je précise via le codename de la feuille.

Pour concaténer utilise :

Code:

---

1 2 3

dim machaine as string   machaine = feuil1.range("A140").value & feuil1.range("B139").value & feuil1.range("B145").value

---

A adapter en fonction de ta feuille, car tu ne précise pas le codename de la feuille de travail.

A+

CB

Bonjour Christian
Et merci d'avoir pris le temps de me repondre ;)
Lorsque tu ecris :

Citation:

---

Par contre fais attention en VBA il faut toujours préciser l'environnement de travail, a minima la feuille dans laquelle tu vient chercher/apporter des informations. Du genre

---

Je sais, dans mon exemple, j'ai copié une toute partie de mon code pour simplifier mon problème.;)

Ta ligne de code fonctionne merci. Je l'ai adapté mais la suite bloque au niveau de Application.Union.
J'ai un message d'erreur qui me dis :

Citation:

---

impossible de lire la propriete union de la classe applicaion

---

comment puis je insérer cette variable concatene dans l'application.union

Code:

---

1 2 3 4

Dim concatene As String concatene = .Range("A145").Value & .Range("B139").Value 'MsgBox concatene Set MyCadenceMatin = .Application.Union(concatene, Range("B145"))

---

Citation:

---

comment puis je insérer cette variable concatene dans l'application.union

---

Le concaténer ne sert a rien en VBA comme je l'ai précisé plus haut.

Pour assembler des variables on utilise le "&".

Je t'ai donné la réponse a ta problématique, tu ne l'a même pas intégré a ton code...

Citation:

---

Je sais, dans mon exemple, j'ai copié une toute partie de mon code pour simplifier mon problème.

---

Tu as peu être donné qu'une partie de ton code mais la partie que tu as partagée n'est pas bien formulée.

Déjà si tu va sur l'aide google tu peux voir que la méthode application.union requiert des objets range, toi tu insert une chaine de caractère.

Tu devrais plutôt faire :

Code:

---

1 2	dim myRange as range set myRange = application.union (feuil1.range("A145"),feuil1.range("B139"),feuil1.range("B145"))

---

Mais je pense que tu te trompe sur la fonction de cette méthode, ce n'est pas un concaténer mais une union de sélections.

Bonjour Christian
Il est vrai que pour simplifier ma problématique, j'ai été trop simple dans mon expication.. desolé:roll:
effectivement, la méthode application.union requiert des objets range et non des chaines de caractères. Et c'est là j'aurais du etre plus claire dans mes explications:
Je voulais récupérer les valeurs de deux cellules, les copier dans la dernière cellule non vide de mon tableau et à droite de cette cellule, copier la valeur d'une troisième cellule.
A l'origine, voila ce que j'ai fais et qui fonctionne

Code:

---

1 2 3

concatene = .Range("A145").Value & .Range("F139").Value WbStat.Worksheets("trafic").Range("F1").End(xlDown).Offset(1, 0).Value = concatene WbStat.Worksheets("trafic").Range("F1").End(xlDown).Offset(0, 1).Value = Range("F145").Value

---

Mais pour rendre mon code plus propre, je voulais passer par la méthode application.union mais comme tu le dis si bien, celle-ci requiert uniquement des ranges.
Christian, je vais donc garder la methode précédente.
Et merci encore d'avoir repondu ;)
Je ferme cette discussion et a plus :D

Re, pour être précis une union de sélections sert principalement en vba a appliquer des opérations sur des sélections discontinues ou variables.

Mais dans ton cas ça ne simplifiera pas ton problème au contraire.

Par contre tu pourrais améliorer ton code :

Code:

---

1 2 3

concatene = .Range("A145").Value & .Range("F139").Value WbStat.Worksheets("trafic").Range("F1").End(xlDown).Offset(1, 0).Value = concatene WbStat.Worksheets("trafic").Range("F1").End(xlDown).Offset(0, 1).Value = Range("F145").Value

---

Comme je te l'ai dit précédemment il vaut mieux préciser l'adresse complète d'une cellule, surtout que apparemment tu travaille sur deux classeurs différents.

Christian
Pour la ligne de code

Code:

---

concatene = .Range("A145").Value & .Range("F139").Value

---

j'utilise un with pour eviter d'ecrire l'adresse complète de la cellule car j'ai plusieurs ligne de codes avec référencer avec le concatene

Code:

---

1 2 3 4 5 6

Dim wbR As Workbook Set wbR = Workbooks("dossier") With wbR.Worksheets("Feuil1") ……. end with

---

Code:

---

WbStat.Worksheets("trafic").Range("F1").End(xlDown).Offset(0, 1).Value = Range("F145").Value

---

Oui j'avais bien compris mais le range de cette ligne n'est pas adressé completement

Code:

---

WbStat.Worksheets("trafic").Range("F1").End(xlDown).Offset(0, 1).Value = Range("F145").Value

---

ah je comprend , c'est cette ligne de code Range("F145").Value qui est incomplète à tes yeux ? non ?:lol:

Citation:

---

ah je comprend , c'est cette ligne de code Range("F145").Value qui est incomplète à tes yeux ? non ?

---

Oui :)

Bonjour Christian
Je ferais en sorte d'écrire la ligne de code avec le Workbooks et le Worksheets .. promis :D
merci encore d'avoir pris de ton temps pour me répondre.
Je clos la discussion