Pb code

bonsoir a tous

voila j'ai un petit pb

ma ligne de code ne fonctionne pas

Private Sub CommandButton1_Click()
If range("B1:AA1").Value = "a" Then 
range("B3:AA3").Value = "a"
else 
If range("B1:AA1").Value = "b" Then 
range("B3:AA3").Value = "b"
else
if If range("B1:AA1").Value = "" Then 
range("B3:AA3").Value = ""
end if
end if
end if
end sub

merci pour votre concours

EDIT ADMIN : 2 doublons supprimés, merci de ne pas poster 3x ton problème !

Bonsoir,

Dans cette ligne --> if If range("B1:AA1").Value = "" Then

Tu as deux fois un IF qui se suivent.

Un seul suffit

Si ok, n'oublie pas de cliquer sur le V vert pour cloturer le fil

Amicalement

merci Dan

mais le pb n'est pas la

il est sur la premiere ligne de code

a+

Bonsoir,

essaye

Sub essai()
Dim  Plg As Range
Set Plg = Range("B1:AA1")
    If Application.CountIf(Plg, "a") = Application.CountA(Plg) Then _
        Range("B3:AA3") = "a"

    If Application.CountIf(Plg, "b") = Application.CountA(Plg) Then
        Range("B3:AA3") = "b"
    Else
        Range("B3:AA3") = ""
    End If
End Sub

Amicalement

Claude

merci dubois mais ce n'est pas ça

a+

Bonjour,

If range("B1:AA1").Value = "a" Then 

Envoie une feuille avec la ligne 1 remplie

Claude

re,

mais le pb n'est pas la

il est sur la premiere ligne de code

A la relecture de ton message, comment on fait pour savoir que le souci est sur la première ligne ?????

Si tu expliquais mieux ce que tu veux faire, on pourrait comprendre.

Je pensais que Dubois avait compris mais apparement il est dans le même cas que moi on dirait

A bientôt