type de variable et conversion

Bonjour a tous,

J'ai un petit problème en VBA Excel

en gros je récupère deux valeur dans mon fichier Excel et ensuite je les associe pour ne donné qu'une valeur.

Code:

---

1 2 3 4

Nom = Left(ActiveWorkbook.Name, Len(ActiveWorkbook.Name) - 4) Version = Range("V3:W4").Value   Lastnum = (Nom & "_" & Version)

---

Mais les varaibles ( version et nom ne sont pas du meme type)
et je ne sais pas comment faire pour que cela fonctionne

j'ai testé de changer le type, d'utiliser strConv
mais comme je suis pas super doué il est possible que je fasse mal les choses.

Version ( 14-245)
Nom (1 - feuille1 - 2)
Merci

Bonjour sharox,

Que veux-tu affecter à ta variable "Version" ?
L'ensemble des valeurs comprises dans la range V3 W4 ?

"Nom" est une "String" j'imagine.

Au final "Lastnum" doit contenir l'ensemble "Nom" + {tout ce qui se trouve en V3, V4, W3 et W4} ?

Cordialement,
Kimy

Bonjour,
Cela m'étonne fortement que cette procédure ne te renvoie pas un message d'erreur.
Soit dans cette ligne

Code:

---

Version = Range("V3:W4").Value

---

soit dans celle-ci

Code:

---

Lastnum = (Nom & "_" & Version)

---

Par exemple un message comme Erreur 13 - Incompatibilité de type

Merci de ta réponse kimy_Ire

Enfaite, dans la variables nom, il y a le nom de mon fichier .xls
Dans la variable version, il y a des version genre (14-125)

et dans lastnum je voudrais mettre : le nom de mon fichier et la version a coté

un exemple, mon fichier s'appel : "excel-test123" et la version est : "16-447"
alors lastnum = excel_test123_16-447

(le "_" entre les deux je le rajouterais après c'est pas ce qui me pose problème)

Range("V3:W4") est juste une cellule fusionné, il y a une seul donnée a l'intérieure

Merci

Philippe Tulliez

Lastnum = (Nom & "_" & Version) me renvoie bien une erreur, incompatibilité de type comme tu dis

je coince la -_-, et je ne comprend même pas pourquoi

Bonjour à tous,

Pour le code :

Code:

---

Version = Range("V3:W4").Value

---

il suffit déjà de mettre,

Code:

---

Version = Range("V3").Value

---

Bien à toi.

Citation:

---

Envoyé par sharox

Range("V3:W4") est juste une cellule fusionné, il y a une seul donnée a l'intérieure

---

Essaye avec Range("V3") seulement alors ! :ccool:

Cordialement,
Kimy

Exacte, merci beaucoup !!
Mais je ne comprend pas la logique,

Normalement c'est la même puisque les cellules sont fusionné..

Enfin bref
Je vous remercie grandement pour votre aide
Désolé de mon inaptitude et de vous avoir sollicité..

Bonjour,

Citation:

---

Mais je ne comprend pas la logique,
Normalement c'est la même puisque les cellules sont fusionné..

---

Si tu déclares la variable Version comme variant ou si tu ne la déclares pas comme l'exemple ci-dessous

Code:

---

1 2 3 4 5 6

Sub t() Dim Version As Variant Nom = Left(ActiveWorkbook.Name, Len(ActiveWorkbook.Name) - 4) Version = Range("V3:W4").Value Lastnum = (Nom & "_" & Version) End Sub

---

La variable Version devient une variable tableau de 2 lignes et 2 colonnes et l'erreur 13 se produira en ligne 5 parce-que l'on ne peut pas faire une concaténation avec un tableau.
En revanche cette ligne

Code:

---

Lastnum = (Nom & "_" & Version(1, 1))

---

ne renverra pas d'erreur parce-que tu fais la concaténation de la valeur du tableau se trouvant en ligne 1, colonne 1 soit le contenu de V3

Dans cette procédure

Code:

---

1 2 3 4 5 6

Sub t() Dim Version As String Nom = Left(ActiveWorkbook.Name, Len(ActiveWorkbook.Name) - 4) Version = Range("V3:W4").Value Lastnum = (Nom & "_" & Version) End Sub

---

L'erreur 13 se produira en ligne 4 car tu déclares la variable Version comme un String donc elle ne peut pas recevoir un tableau.

Pour connaître la taille d'un tableau à deux dimensions

Code:

---

Debug.Print UBound(Version) & "/" & UBound(Version, 2)

---

Tu nous dévoiles ensuite (merci pour la précision tardive) que ta plage V3:W4 est fusionnée. Alors dans ce cas comme te l'a suggéré Michaël il faut écrire

Code:

---

1 2 3 4 5 6

Sub t() Dim Version As String Nom = Left(ActiveWorkbook.Name, Len(ActiveWorkbook.Name) - 4) Version = Range("V3").Value Lastnum = (Nom & "_" & Version) End Sub

---

Parce-que lorsque l'on fusionne des cellules la référence à la plage fusionnée est celle de la première cellule de la fusion.
Pour t'en convaincre sélectionne la plage fusionnée et regarde la référence que tu vois dans la zone des noms.

J'espère que cette petite précsion t'éclairera.

Exact, merci pour cette explication,
J'ai compris maintenant
je ne voyais pas l'erreur au bon endroit, je croyais que c'était a cause de la déclaration
Que string et value ne pouvais pas ou un truc du genre

Merci beaucoup et bonne continuation