Calcul en fonction de texte dans une cellule

Bonjour,

Malgré de nombreuses recherches je suis dans l'impasse,
Je souhaiterais tester le contenu d'une cellule ("B1") savoir si elle contient le texte "Convergent" ou "Divergent". Si c'est convergent je lis la valeur numérique de la cellule C1 et je la stocke dans une variable. Si c'est "Divergent" je laisse de coté, je ne fais rien pour le moment. Seulement voila comment effectuer un bouton appelant une fonction comme celle-ci ?
J'ai bien essayé ceci :

Code:

---

1 2 3 4 5

Sub test() If UCase(Range("B1").Value) & " " Like "*Convergent*" Then Range("C1") = nom End If End Sub

---

cumulé à

Code:

---

Do While ActiveCell <> ""

---

donc je pars du principe ou je fais :

Code:

---

1 2	Sub test() Do Whille

---

le do while m'arretant directement si je n'ai plus de texte à tester. Je sens que j'ai les bons trucs (jsp en fait) mais j'arrive pas à mettre en forme... :roll:

Merci d'avance

Bonjour,

Tu peux essayer ceci :

Code:

---

1 2 3 4 5 6 7

Private Sub Worksheet_Change(ByVal Target As Range) If Target = Range("B1") Then If Range("B1") = "Divergent" Then Nom = Range("C1") End If End If End Sub

---

A placer dans la feuille ou se trouve la cellule B1 en question.

Cdlt

Bonjour,
Alors soit tu fais un test sur la valeur en majuscule

Code:

---

If UCase(Range("B1").Value) & " " Like "*CONVERGENT*" Then ...

---

Soit le test en minuscule

Code:

---

If LCase(Range("B1").Value) & " " Like "*convergent*" Then ...

---

Mais comment faire pour que le code "scanne" les cellules une par une ?
et @Philippe Tulliez : je me moque en fait de la majuscule ou minuscule. ça sera tj écrit de la même façon

Il faut que tu regarde du coté des événements de ta feuille (Comme ce que j'ai écris un peu plus tôt).

Peut être que si tu spécifie un petit peu, quelle plage de cellule veux tu parcourir ? je ne pensais qu'il ne s'agissait que de la cellule B1 ?

je veux uniquement parcourir la colonne B (après avec de la mise en page ça sera surement de B4 à B40 environ mais la fin varie énormement - pas la cellule de départ en revanche)

Bonjour,

Citation:

---

et @Philippe Tulliez : je me moque en fait de la majuscule ou minuscule. ça sera tj écrit de la même façon

---

Et bien désolé de m'être trompé sur ta demande. Cela m'y prendra de vouloir répondre vite.

Citation:

---

Envoyé par Philippe Tulliez

Bonjour,

Et bien désolé de m'être trompé sur ta demande. Cela m'y prendra de vouloir répondre vite.

---

En même temps ce n'était pas non plus évident

Tu peux essayer ceci :

Code:

---

1 2 3 4 5 6 7 8 9

Private Sub Worksheet_Change(ByVal Target As Range)   If Target.Column = 2 Then If Target.Value = "Convergent" Then Nom = Cells(Target.Row, 3) End If End If   End Sub

---

Je n'ai pas tester le code, a toi de me dire si c'est ce que tu veux.

ça ne fonctionne pas pour moi :? j'ai une erreur au 1er if target pour "objet requis" ...

Je n'ai peut être précisé, au temps pour moi.
As tu ecrit ce Sub dans la feuille ou se trouve les cellules en question ?

j'ai créé un bouton et copié le code dans la macro associée à ce bouton

Tu as dit que tu voulais scanner les changements, avec ton Do While, j'ai penser que tu voulais le faire en temps réel, au temps pour moi.

Pour le faire en temps réel, tu peux simplement copier le bout de code que je t'ai écris dans la feuille ou se trouve les cellules en questions.

Si tu veux le faire à l'aide d'un bouton, il faut procéder d'une autre façon. Essaie de faire une boucle qui parcours toutes les cellules que tu veux. Si tu connais déjà le nombre d'élément que tu veux parcourir, utilise une boucle FOR.
Définis ensuite la condition que tu veux, par exemple :

Code:

---

1 2 3 4 5

For I = 4 to 40 If Cells(I, 2) = "Convergent" then Nom = Cells(I, 3) End if Next I

---

Si tu veux trouver la fin de ta ligne, la bonne question à poser était "Comment calculer la dernière ligne occupé ?" et tu aurais eu un tas de résultat sur google ;)

Par exemple, tu peux utiliser cette fonction pour déterminer la dernière ligne d'une feuille en fonction d'une colonne (En réalité, ça va calculer la dernière cellule vide de ladite colonne, et te renvoyer le numéro de la ligne)

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Function CountLig(Ws As Worksheet, col As Single)   'Fonction servant à compter les lignes   On Error GoTo ErrorHandler   CountLig = Ws.Columns(col).Find("*", , , , xlByRows, xlPrevious).Row   Exit Function   ErrorHandler: CountLig = 1   End Function

---

Essaie de combiner tout ça, je suis sûr que tu arriveras à faire ce que tu veux.

C'est bon j'ai bien ce que je voulais du coup, maintenant j'ai plus qu'a intégrer mon calcul. Merci bcp !