2156 résultats trouvés

Re,

J’ai bien mis validee sur mes formule , je pense que c’est une histoire peut etre d’espace ou je ne sais pas

Espace, Accent, Majuscule....??
Si tu écris VALIDEE manuellement, ça fonctionne ?

Cordialement,

Re, Heu....c'est normal qu'il ne trouve pas VALIDEE puisqu'on lui dit de chercher VALIDE, :...: Capture.JPG Case "VALIDE", "REJETEE", "PARTIELLEMENT REJETEE" 'tes conditions pour la colonne E Il te faut donc Case "VALIDEE", "REJETEE", "PARTIELLEMENT REJETEE" 'tes conditions pour la colonne E Cordial...

Bonsoir peerl , le forum, Un essai.... Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim lig As Integer, col As Integer For lig = 2 To 6 For col = 2 To 5 Cells(lig, col) = IIf(Cells(lig, 1).Interior.Color = Cells(1, col).Interior.Color, "X", "") Next col Next lig End Sub myexemple.xls...

Re,

Je veux que si ma cellule Y17 est comprise entre 0 eet 20% le texte s'inscrive en noir

Bonne soirée,

Bonjour clemroussi, le forum,

Avec une MFC ( Mise en Forme Conditionnelle) ?

Cordialement,

Bonjour dylan74200, le forum, Un sujet similaire a été traité ici: https://forum.excel-pratique.com/viewtopic.php?p=849116#p849116 Sub test() Dim Cel As Range, pl As Range For Each Cel In Range("A1:F20") 'à adapter If Cel.Interior.ColorIndex = 6 Then If Not pl Is Nothing Then Set pl = Union(pl, Cel)...

Bonjour Rnxisma , le forum, Un essai.... Sub SuprimLig() Dim derlig derlig = Sheets("Feuil1").Range("A" & Rows.Count).End(xlUp).Row Application.ScreenUpdating = False For i = derlig To 2 Step -1 If Not IsDate(Cells(i, "A")) Then Rows(i).EntireRow.Delete End If Next i End Sub suprimLig.xlsm Cordialem...

Re,

Ravi d'avoir pu t'aider,

A bientôt,

Re, Oui c'est ca! mais sans la coloration des lignes Option Explicit Dim f1 As Worksheet, f2 As Worksheet, cell As Range Dim i As Long Sub Compare() Set f1 = Sheets("Critères") Set f2 = Sheets("Dates") f2.Columns(2).ClearContents 'vide la colonne B For i = 1 To Range("A" & Rows.Count).End(xlUp).Row ...

Re, Une tentative.... Option Explicit Dim f1 As Worksheet, f2 As Worksheet, cell As Range Dim i As Long Sub Compare() Set f1 = Sheets("Critères") Set f2 = Sheets("Dates") f2.Cells.Rows.Interior.Color = xlNone 'supprime les couleurs f2.Columns(2).ClearContents 'vide la colonne B For i = 1 To Range("A...