Forum > Visual Basic 6 > Base de données > XML
C'est dingue mais je ne trouve pas comment rajouter un fichier
If Range("A1").Value="Canne" Then Range("A2").Value="CAN" ElseIf Range("A1").value="Caen" Then Range("A2).Value="CAE" Else End If
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionj'aimerais avoir une fonction VBA qui prend en compte une cellule qu'on lui donne
3) une fonction reçoit des paramètres et retourne une valeur. La tienne n'est pas dans ce cas.
corrige et reviens avec ta correction, présentée avec indentation (c'est un minimum).
C'est pour ça d'ailleurs que je voulais mettre un fichier en copie car c'est difficile d'expliquer un problème par écris
Public Function toto(r As Range) As String Select Case LCase(r.Value) Case "nice" toto = "NIC" Case "anglet" toto = "ANG" Case "cannes" toto = "CAN" Case Else toto = "j'en, sais rien" End Select End Function
= toto(A1)
Dim toto As New Collection mes_noms = Array("nice", "anglet", "cannes", "barcelone", "gibraltar", "madrid") mes_trad = Array("NIC", "ANG", "CAN", "BAR", "GIB", "MAD") For i = 0 To UBound(mes_noms) toto.Add mes_trad(i), mes_noms(i) Next MsgBox toto("nice") MsgBox toto("anglet") MsgBox toto("madrid")
J'ai droit à un petit indice ?
Private Sub Workbook_Open() mes_noms = Array("nice", "anglet", "cannes", "barcelone", "gibraltar", "madrid") mes_trad = Array("NIC", "ANG", "CAN", "BAR", "GIB", "MAD") For i = 0 To UBound(mes_noms) titi.Add mes_trad(i), mes_noms(i) Next End Sub
Public titi As New Collection Public Function toto(r As Range) As String If r.Value = "" Then Exit Function On Error Resume Next toto = titi(LCase(r.Value)) If Err > 0 Then toto = "ché pô, moi" On Error GoTo 0 End Function