Discussion :

[sharox]

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 :

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

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

[Kimy_Ire]

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

[sharox]

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

[sharox]

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

[electrons]

Bonjour à tous,

Pour le code :

Code :

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

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

il suffit déjà de mettre,

Code :

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

Version = Range("V3").Value

Bien à toi.

[Kimy_Ire]

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 !

Cordialement,
Kimy

[sharox]

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é..

[Philippe Tulliez]

Bonjour,

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 :

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

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 :

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

  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 :

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

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 :

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

 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 :

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

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.

[Philippe Tulliez]

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

Code :

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

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

soit dans celle-ci

Code :

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

Lastnum = (Nom & "_" & Version)

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