problème de conditions

P

philippe

Guest
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

XLDnaute Occasionnel
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+
 
P

philippe

Guest
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]
 

Pièces jointes

  • TEST_20050912192206.zip
    1.7 KB · Affichages: 8

JeanMarie

XLDnaute Barbatruc
Bonsoir

1) Sélectionne ta plage A9:D20, 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

XLDnaute Occasionnel
Salut Philippe

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

Code:
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]
 

Pièces jointes

  • lignjaune.zip
    11.6 KB · Affichages: 13

ZZR09

XLDnaute Occasionnel
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+
 
P

philippe

Guest
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
 
P

philippe

Guest
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
 

Discussions similaires

Statistiques des forums

Discussions
311 721
Messages
2 081 927
Membres
101 842
dernier inscrit
seb0390