Petit problème code

Bonjour

voila j'ai un petit problème dans mon code

je voudrais que la cellule affiche oui s'il y a un numéro adhésion(dans la colonne d’après) et non si la cellule de la colonne 7 est vide

merci pour votre aide

voici mon code

Sub programme()

    Dim i As Integer
    Dim adh As Range
    Dim DernLigne As Long

    With Worksheets("Feuil1")
    DernLigne = .Range("A" & .Rows.Count).End(xlUp).Row
    Set adh = .Range("G3:G" & DernLigne)

    For i = 3 To DernLigne
        If adh <> " " Then
            Cells(i, 6).Value = NON
        Else
            Cells(i, 6).Value = OUI
        End If
    Next i

    End With

End Sub

Bonsoir,

C'est la première fois que j'aide quelqu'un, je vous saurait grès de ne pas être trop intransigeant si il y a quelque imprécisions dans ma réponse, ou si j'ai mal compris votre question!

J'ai jeté un coup d’œil à votre fichier, il ne me semble pas que l'usage de VBA soit utile pour régler votre problème.

Voici la formule que j'inclurai dans la cellule F3 : =SI(ESTVIDE(G3);"NON";"OUI")

Faites simplement glisser la formule jusqu'à la fin de la colonne, celle-ci affichera OUI si le numéro adhérent est spécifié, et affichera NON si ce dernier est manquant.

Yann

Bonjour Aude, bonjour le forum,

Peut être avec des guillemets "OUI" et "NON"

[Édition]

Bonjour Yann nos posts se sont croisés...

super merciii beaucoup

Bonsoir Aude21 le forum

c'est marrant tu envoies un fichier xlsx alors que tu demandes de l'aide sur une macro ????!!!!!

bref ton fichier en retour avec un bouton traiter

tu mets ton fichier sur ton bureau tu ne l'ouvres pas en temporaire

et tu l'ouvres tu cliques traiter et tu auras ce que tu veux

a+

Papou

EDIT : Bonsoir Robert Yann bref à la Bourre le Papou

c'est parce que j'avais plusieurs macro sur ceux fichiers

ton code marche très bien aussi

merci beaucoup tout le monde

bonjour,

Sub programme()

    Dim i As Integer
    Dim adh As Range
    Dim DernLigne As Long

    With Worksheets("Feuil1")
    DernLigne = .Range("A" & .Rows.Count).End(xlUp).Row

    For i = 3 To DernLigne
        If cells(i,7)<> "" Then
            Cells(i, 6).Value = "NON"
        Else
            Cells(i, 6).Value = "OUI"
        End If
    Next i

    End With

End Sub