3 posibilité sur toto.value Résolu

Question

bonjour, voila mon probleme

avec cette macro je compte le nombre de ligne non vide dans les 3 première ligne de la colonne A.

Par contre maintenant ce que je voudrais faire
c'est

si toto.value<1
écrire un message dans la cage A27 de la feuille 1 : Pas de poulie existante
Si toto.value=1
copie de feuille poulies2 A1 les valeusr sur feuille 1 case A26
Si toto;value>1
écrire un message dans la cage A27 de la feuille 1 : affiner recherche trop de poulie

voila le debut de ma macro :

Sheets("poulies2").Select
Dim toto As Range
Dim Compteur As Double
Compteur = 0
For Each toto In Range("A1:A5")
If toto.Value <> "" Then Compteur = Compteur + 1

merci d'avance

Configuration: Windows XP
Firefox 2.0.0.7

eriiic · Answer

Bonjour,

C'est cette partie là qui te pose pb ?

Select Case compteur
    Case Is < 1
        [Feuil1!A27].Value = "Pas de poulie existante"
    Case Is = 1
        [Feuil1!A26].Value = [poulies2!A1].Value
    Case Is > 1
        [Feuil1!A27].Value = "affiner recherche trop de poulie"
End Select

pas testé...
eric

GRAUFEL · Answer

merci pour ta repose Eric

j'étais perdu parce que je voulais d'abord essayer de mettre "compteur" dans une case pour l'exploiter.
je pense qu'il doit pouvoir l'exploiter dans ta macro sans passer cette étape

en tout cas ça marche
merci encore
à la prochaine

3 posibilité sur toto.value

2 réponses

Discussions similaires

Newsletters