incompatibilité de type vba

Pierrot93

XLDnaute Barbatruc

• 17 Juin 2015

• #2

Re : incompatibilité de type vba

Bonjour,

normal "col" est de type texte (string), tu ne peux donc faire un calcul....

col = col & ":" & col

Cliquez pour agrandir...

bonne journée
@+

 

Vote positif 0 Vote négatif

Iznogood1

XLDnaute Impliqué

• 17 Juin 2015

• #3

Re : incompatibilité de type vba

Bonjour,

col = col & ":" & col transforme ta variable col en chaine de caractère (type string)

col2 = col - 5 n'a donc aucun sens.


un code du style
col2 = Cells(1, CInt(InputBox("Sélectionnez le numéro de colonne"))).Offset(0, -5).Column
devrait fonctionner

 

Vote positif 0 Vote négatif

Iznogood1

XLDnaute Impliqué

• 17 Juin 2015

• #4

Re : incompatibilité de type vba

ou alors directement

col2 = CInt(InputBox("Sélectionnez le numéro de colonne"))-5

 

Vote positif 0 Vote négatif

J

Jacou

XLDnaute Impliqué

• 17 Juin 2015

• #5

Re : incompatibilité de type vba

Bonjour raptor65, bonjour le forum,
l'incompatibilité de type provient du fait que tu essaies de soustraire un nombre(5) à une donnée qui est une lettre (on ne peut pas faire de calcul avec une donnée "texte".
dans ton cas je ferais comme suit :
col2 = InputBox("Sélectionnez le numéro de colonne")
If Not IsNumeric(col2) Then Exit Sub
If col2 > 26 then exit sub
col = Chr(64 + col2)
col = col & ":" & col
col2 = col2 - 5

​Bonne journée

 

Vote positif 0 Vote négatif