problème de conditions

[philippe]

bonjour,

ci joint un fichier excel avec 20 lignes (l'original en faisant environ 500).

comment faire une formule ou une macro pour 'dire' a excel que toutes les cellules dont la chaine de caractère contient le prenom 'ramond'soit de couleur jaune sur toute la ligne.

par exemple de A10 a D10

merci beaucoup

 

[ZZR09]

Salut Philippe,

Ne multiplie pas les fils, tu as déjà posé cette question hier.
Jean-Marie était certainement encore sur ton fil d'hier, tu aurais pu lui rajouter ton fichier.

De plus, ton fichier n'est pas passé : il faut qu'il soit zippé, sans caractères spéciaux et de moins de 50ko.

Les valeurs à tester sont-elle obligatoirement sur la première colonne, une autre ou est-ce variable ? Quand on saura cela, je pense que tu auras une réponse très rapidement!

A+

 

[philippe]

Bonsoir,

désolé pour les post mais c'est pas evident d'exprimer ce que l'on veut faire

ci joint le zip

merci beaucoup

[file name=TEST_20050912192206.zip size=1761]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/TEST_20050912192206.zip[/file]

 

[andré]

Bonsoir,

Sélectionner la plage A9😀20
Menu Format / Mise en forme conditionnelle
La formule est : =CHERCHE('ramond';$A9)>1
Format / Motif / jaune
OK / OK

Â+

 

[JeanMarie]

Bonsoir

1) Sélectionne ta plage A9😀20, en commençant à la cellule A9 (c'est important)
2) Clique sur le menu Format/Mise en forme conditionnelle...
3) Dans la boîte de dialogue change le terme 'la valeur de la cellule est' par 'la formule est'
4) Dans le champ à côté tu tapes la formule =NB.SI($A9;'*ramond*')
5) puis tu cliques sur le bouton format pour paramétrer l'affichage quand la cellule Ax va contenir 'ramond'

Reste dans le même fil la prochaine fois

@+Jean-Marie

 

[ZZR09]

Salut Philippe

voilà une macro qui te surligne toutes les lignes contenant ce que tu saisies dans la boite de dialogue.

Private Sub CommandButton1_Click()
UserForm1.Hide
Dim i As Range
Dim noLign, var As Integer
Dim tot, prem As Integer
Dim strPrem As String

var = 0
    Cells.Select
    Selection.Interior.ColorIndex = xlNone
Range('A9').Select

For Each i In Range('A9:A' & Range('A65536').End(xlUp).Row)
         
        tot = Len(i.Value)
        prem = tot
            Do While prem > 0
                strPrem = Mid(i.Value, prem, 1)
                If strPrem = ' ' Then
                    GoTo ctr
                Else
                    prem = prem - 1
                End If
            Loop
ctr:
    If Mid(i.Value, prem + 1, Len(i.Value)) = Me.TextBox1.Value Then
         
         i.EntireRow.Select
        With Selection.Interior
            .ColorIndex = 6
            .Pattern = xlSolid
        End With
        var = var + 1
    End If
Next i
    Range('A8').Select
MsgBox var & ' ligne(s) ont été surlignée(s)', vbOKOnly
End Sub

voilà A+
😉 [file name=lignjaune.zip size=11895]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/lignjaune.zip[/file]

 

[ZZR09]

Oups André, Jean-Marie
Désolé j'ai encore été 10 fois trop long.
Et c'est plus simple dans Excel!

Au fait, j'ai regardé du coté de find en VBA mais, cela ne semble pas être l'équivalent de 'trouver'. Existe t'il son equivalent?

A+

 

[philippe]

genial mais...

merci beaucoup, mais j'ai encore un soucis

dans mon tableau original je vais avoir une cellule indiqué :

1 SC SUD
2 SC SUD OUEST

en fait avec votre methode si je fais une recherche sur SC SUD et bien
SC SUD OUEST va aussi etre selectionné

comment faire pour faire etre sur que seul toute les cellule contenant SC SUD soie selectionner

encore merci beaucoup de votre aide

 

[JeanMarie]

Re:genial mais...

Re...

Supprime le dernier * dans la formule
=NB.SI($A9;'*SC SUD')

@+Jean-Marie

 

[philippe]

tout marche

merci pour cette macro

tout fonctionne

merci beaucoup à tout le monde

 

[philippe]

tout marche

merci pour cette macro

tout fonctionne

merci beaucoup à tout le monde

 

[philippe]

une dernier question

j'ai oublié quelque chose.

dans le cas ou ma cellule de recherche se trouve au milieu de la ligne, mais je veux quand meme que le remplissage se fasse de part et d'autre de cette ligne ?

merci

 

[philippe]

Re:une dernier question

j'ai trouvé merci

=NB.SI($A9:$O9'*SC SUD')

 

[philippe]

encore un problème

encore un problème.

je ne peux pas passer 3 mise en forme conditionnel alors qu'il m'en faudrait au moins une dizaine.

merci encore une fois

 

[ZZR09]

Re:encore un problème

Bonsoir Philippe,
Alors là il va falloir être plus clair et énnocer excatement quels types quantités de données vous manipulerez d'une part et le résultat escompté d'autre part.

A+
ZZR09