Problème avec .Delete xlUp

Bonjour

Je récupère des valeurs avec ce code

For iLig3 = 2 To iLigFin3
                If Sheets("Facturation_Détaillée").Range("A" & iLig3).Value = Target.Value Then
                    Range("e" & iEcr3).Value = Sheets("Facturation_Détaillée").Range("at" & iLig3).Value
                    Range("j" & iEcr3).Value = Sheets("Facturation_Détaillée").Range("au" & iLig3).Value
                    Range("k" & iEcr3).Value = Sheets("Facturation_Détaillée").Range("av" & iLig3).Value
                    Range("n" & iEcr3).Value = Sheets("Facturation_Détaillée").Range("ar" & iLig3).Value
                    Range("o" & iEcr3).Value = Sheets("Facturation_Détaillée").Range("aw" & iLig3).Value
                    iEcr3 = iEcr3 + 1
                End If
                 Next iLig3

Comment le modifier pour que si une cellule est vide, retourner la valeur "x"

Ou ptt modifier ce code afin que les lignes soient remontées en intégralité avec cellules adjacents vide si "E" n'est pas vide

Worksheets("Facture").Range("E26:o100").SpecialCells(xlCellTypeBlanks).Delete xlUp

Merci

Bonjour

Ce serait plus simple si tu joignais ton fichier...

Bye !

Merci gmb de ton aide

Je ne peux joindre le fichier en raison de l'information sensible qui s'y trouve

Ptt peux-tu m'aider pareil

Pour la plage E26:O39, je voudrais ajouter la valeur "x" à la colonnes H seulement si la colonne E <>""

Merci

Essaie ça :

Sub AjouterX()
    For i = 26 To 39
        If Range("E" & i) <> "" Then
            Range("H" & i) = "X"
        End If
    Next i
End Sub

Bye :

Merci gmb

J'ai mal identifier mon besoin,dsl

Pour la plage E26:O39, je voudrais ajouter la valeur "x" à la colonnes H si H ="" et seulement si la colonne E <>""

Bonjour,

C'est ce que fait pratiquement le code de gmb, vous savez lire

Alors qu'y a t'il de compliquer à ajouter un test

Merci mgb de ton aide

J'ai ajouté une condition et ça fontionne

For iLig3 = 26 To 38

                If Range("E" & iLig3) <> "" And Range("j" & iLig3) = "" Then

                Range("j" & iLig3) = "x"

                End If

            Next iLig3

En complément, comment je fais pour que le "x" soit de couleur blanc?

J'essaie d'intégrer au code la fonction .Font.ColorIndex et je n'y arrive pas

Merci de m'aiguiller

Bonjour

Bonjour à tous

Gonteur a écrit :

J'essaie d'intégrer au code la fonction .Font.ColorIndex et je n'y arrive pas

Essaie ça :

For iLig3 = 26 To 38
    If Range("E" & iLig3) <> "" And Range("j" & iLig3) = "" Then
        Range("j" & iLig3) = "x"
        Range("j" & iLig3).Font.Color = RGB(255, 255, 255)
    End If
Next iLig3

Bye !

Merci beaucoup gmb

Je fouille et me renseigne beaucoup même si je bloque souvent, j'apprends beaucoup

J'étais sur la bonne voie mais je crois que le fait de remonter mes lignes, la couleur de la police ne suit pas

Worksheets("Facture").Range("E26:O50").SpecialCells(xlCellTypeBlanks).Delete xlUp

As-tu une idée de comment faire? Je cherche depuis quelques jours

Merci

Bonjour

Tu devrais joindre un fichier sur lequel tu montrerais ce que tu as au départ et ce que tu veux obtenir.

A défaut un essai , à tout hasard...

Bye !