3 posibilité sur toto.value
Résolu
GRAUFEL
Messages postés
14
Date d'inscription
Statut
Membre
Dernière intervention
-
GRAUFEL Messages postés 14 Date d'inscription Statut Membre Dernière intervention -
GRAUFEL Messages postés 14 Date d'inscription Statut Membre Dernière intervention -
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
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
A voir également:
- 3 posibilité sur toto.value
- Ai suite 3 - Télécharger - Optimisation
- Picasa 3 - Télécharger - Albums photo
- Photorecit 3 - Télécharger - Visionnage & Diaporama
- Imagen 3 - Accueil - Applications & Logiciels
- Zelda 3 - Accueil - Guide jeu vidéo
2 réponses
Bonjour,
C'est cette partie là qui te pose pb ?
pas testé...
eric
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