Discussion :

[Craquos]

Bonjour,

Je bloque sur un petit problème...

Mon algo: si la colonne 1 contient des integer et la colonne 2 des string et la colonne 3 des dates alors ne rien faire, sinon afficher message.

Mon problème réside dans la façon de dire "contient ce type de variable".

J'aimerais le faire pour l'intégralité de la colonne en question, mais si vous avez pour une cellule ça serait déjà une bonne partie du chemin pour moi.

Je rajouterais qu'on trouve pour chaque ligne d'une colonne le même type de variable, i.e. si la celulle A45 contient une date, alors la celulle A855 aussi.

J'ai écrit ce début qui ne fonctionne pas (encore)...:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
Dim x As Integer
Dim y As String
 
If Range("C1").Value = x & Range ("D8").Value= y Then GoTo Fin Else MsgBox "erreur"
 
Exit Sub
 
Fin
 
End Sub

Antoine.

[Philippe Tulliez]

Bonjour,
La fonction Vartype peux te donner le type de la donnée se trouvant dans une cellule. Cependant si tu tapes 2 dans une cellule, il ne la considère pas comme un Integer mais comme un Double
Exemple

Code :

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

Debug.Print VarType(Range("A2")) = vbInteger

renvoie FAUX

[Marc-L]

Bonjour,

voir aussi la fonction TypeName …



__________________________________________________________________________________________

Merci de cliquer sur pour chaque message ayant aidé puis sur pour clore cette discussion …

[Craquos]

J'avais en effet essayé qqchose avec VarType avant, mais sans résultats...

J'ai testé la ligne de code, cependant elle retourne tout le temps Faux, que le contenu de la cellule soit un Integer ou pas...

Et si je comprend bien cette méthode, je ferai ce test avec vbString et vbDate pour tester mes autres type de variable?

[Marc-L]

Essayer aussi en précisant la propriété Value de l'objet Range …

Sinon il y a les fonctions IsDate, IsNumeric et Val …



__________________________________________________________________________________________

Merci de cliquer sur pour chaque message ayant aidé puis sur pour clore cette discussion …

[Craquos]

Super tout fonctionne avec IsNumeric, IsDate et VarType vbString pour le string.

Merci beaucoup