pb code

[nero2a]

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 range("B1:AA1").Value = "" Then
range("B3:AA3").Value = ""
end if
end if
end if
end sub

 

[kjin]

Re : pb code

Tiens un martien...enfin, je m'excuse auprès des martiens qui doivent sans doute être des gens très polis

 

[jmps]

Re : pb code

End If Or Même Not If 😛

 

[kjin]

Re : pb code

Re, jmps 🙂,

End If Or Même Not If

That is the question ?
A+
kjin

 

[jmps]

Re : pb code

Bon, j'ai cherché quand même pasque ça m'amuse...

Private Sub CommandButton1_Click()
    If Range("B1:AA1").Value = "a" Then
        Range("B3:AA3").Value = "a"
    ElseIf Range("B1:AA1").Value = "b" Then
        Range("B3:AA3").Value = "b"
    ElseIf Range("B1:AA1").Value = "" Then
        Range("B3:AA3").Value = ""
    End If
    End If
    End If
End Sub

Ça veut rien dire de plus mais maintenant je parle martien 😎

 

[kjin]

Re : pb code

Re,

    End If
    End If
    End If

C'est une formule de politesse ?
A+
kjin

 

[jmps]

Re : pb code

Bon en fait y'a trop d'EndIf

Et en fait, Range("B1:AA1").Value = "a" ça veut rien dire.

Tout le problème est là. Les martiens ont un Excel spécial qui affecte une valeur unique à un range de plusieurs cellules.

Après, si Robert passe par là on aura sûrement une explication.

 

[kjin]

Re : pb code

Re,

Après, si Robert passe par là on aura sûrement une explication.

Oui, tu as raison vaut mieux attendre Robert...
A+
kjin

 

[ROGER2327]

Re : pb code

Private Sub CommandButton1_Click()
Dim oCel As Range, oColl As New Collection
  With Range("B1:AA1")
    On Error Resume Next
    For Each oCel In .Cells: oColl.Add CStr(oCel.Value), CStr(oCel.Value): Next
    On Error GoTo 0
    If oColl.Count = 1 And oColl(1) = "a" Or oColl(1) = "b" Or oColl(1) = "" Then .Copy [B3]
  End With
End Sub