Discussion :

[conarlebarban]

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 :

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

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

cumulé à

Code :

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

Do While ActiveCell <> ""

donc je pars du principe ou je fais :

Code :

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

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...

Merci d'avance

[Nico Chg]

Bonjour,

Tu peux essayer ceci :

Code :

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

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

[Philippe Tulliez]

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

Code :

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

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

Soit le test en minuscule

Code :

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

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

[conarlebarban]

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

[Nico Chg]

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 ?

[conarlebarban]

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)

[Philippe Tulliez]

Bonjour,

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.