pb code

K

kjin

XLDnaute Barbatruc

• 15 Février 2011

• #2

Re : pb code

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

 

Vote positif 0 Vote négatif

jmps

Nous a quitté

Repose en paix

• 15 Février 2011

• #3

Re : pb code

End If Or Même Not If 😛

 

Vote positif 0 Vote négatif

K

kjin

XLDnaute Barbatruc

• 15 Février 2011

• #4

Re : pb code

Re, jmps 🙂,

jmps à dit:

End If Or Même Not If

Cliquez pour agrandir...

That is the question ?
A+
kjin

 

Vote positif 0 Vote négatif

jmps

Nous a quitté

Repose en paix

• 15 Février 2011

• #5

Re : pb code

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

Code:

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 😎

 

Vote positif 0 Vote négatif

K

kjin

XLDnaute Barbatruc

• 15 Février 2011

• #6

Re : pb code

Re,

Code:

    End If
    End If
    End If

C'est une formule de politesse ?
A+
kjin

 

Vote positif 0 Vote négatif

jmps

Nous a quitté

Repose en paix

• 15 Février 2011

• #7

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.

 

Vote positif 0 Vote négatif

K

kjin

XLDnaute Barbatruc

• 15 Février 2011

• #8

Re : pb code

Re,

jmps à dit:

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

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

ROGER2327

XLDnaute Barbatruc

• 15 Février 2011

• #9

Re : pb code

VB:

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

 

Vote positif 0 Vote négatif