Déclaration de variable

Esox · 19 Décembre 2013

Bonjour le forum,

Voici un bout de ma macro :

If cel.Column <> 4 Then
MsgBox "Sélection non valide..."
Exit Sub

Else blabla...

Cela marche parfaitement, si je ne sélectionne pas une cellule de la 4 ème colonne alors fin de macro.
Maintenant je voulais faire en sorte que l'utilisateur précise lui meme le n° de colonne.
J'avais pensé faire :

Set num = range("A1") 'préciser le n° de la colonne en A1

puis :

If cel.Column <> num Then
MsgBox "Sélection non valide..."
Exit Sub

Else blabla...

Ca ne fonctionne pas, et mes connaissances limitées m'empeche d'avancer. Auriez vous une piste SVP...

Merci d'avance à tous.

Efgé · 19 Décembre 2013

Re : Déclaration de variable

Bonjour Esox
En écrivant

VB:

Set num = range("A1")

tu dis que "Num" EST la cellule A1, pas la valeur de la cellule mais tu crée un objet (Range), et donc
La colonne de Num ne sera jamais 4 (puisque la colonne de A1 est... ...1
Donc essai plutot:

VB:

num = range("A1").Value 'préciser le n° de la colonne en A1

If cel.Column < > num Then
MsgBox "Sélection non valide..."
Exit Sub

Cordialement

Paf · 19 Décembre 2013

Re : Déclaration de variable

bonjour

chez moi ça marche, (après adaptation de cel en Selection ne sachant pas d'ou sortait cel)

Est ce que set num=.... est dans la même Macro que le test ?

A+

Esox · 19 Décembre 2013

Re : Déclaration de variable

Re,

j'ai adaptée mais ca ne marche toujours pas, et me met une erreur 13 incompatibilité de type

voici ma macro actualisée selon votre aide :

Set num = Range("J6").value

Dim StrTemp As String
StrTemp = ""

For Each cel In Selection

If cel.Column <> num Then
MsgBox "Sélection non valide... "
Exit Sub

Encore merci

MJ13 · 19 Décembre 2013

Re : Déclaration de variable

Bonjour à tous

Pourtant, on te l'a dit :

Code:

Sub a()
'Set num = Range("J6").Value
num = Range("J6").Value
Dim StrTemp As String
StrTemp = ""
End Sub

Esox · 19 Décembre 2013

Re : Déclaration de variable

Re,

Effectivement, désolé, je ne sais pas lire ;-).... merci encore... ca marche bcp mieux....

Bonnes Fêtes....

Déclaration de variable

Esox

XLDnaute Occasionnel

Efgé

XLDnaute Barbatruc

Paf

XLDnaute Barbatruc

Esox

XLDnaute Occasionnel

MJ13

XLDnaute Barbatruc

Esox

XLDnaute Occasionnel

Discussions similaires