Bonjour à tous,
Je suis nouveau sur ce site, et je suis ravi d'être parmi vous.
Voilà, j'ai écris le code ci-dessous sous forme de Sub, et je souhaite le rendre comme étant une fonction:
Sub ConcaténationChaines()
Dim ChaineA As String
Dim ChaineB As String
Dim ChaineC As String
Dim F1 As Integer
Dim F2 As Integer
Dim F3 As Integer
Dim E1 As Integer
ChaineA = Range("A1").Value
ChaineB = Range("B1").Value
ChaineC = Range("C1").Value
F1 = Range("F1").Value
F2 = Range("F2").Value
F3 = Range("F3").Value
E1 = Range("E1").Value
If F1 > E1 Or F1 < E1 And F2 = 0 Then
Range("D1").Value = ChaineA
Else
If F1 < E1 And F1 <> 0 Then
Range("D1").Value = ChaineA & " " & ChaineB
Else
If F1 = 0 And F2 > E1 Then
Range("D1").Value = ChaineB
Else
If F1 = 0 And F2 < E1 And F3 > 0 Then
Range("D1").Value = ChaineB & " " & ChaineC
Else
If F1 = 0 And F2 = 0 Then
Range("D1").Value = ChaineC
End If
End If
End If
End If
End If
End Sub
Qlq un peut m'aider sur ce sujet.
Les conditions du résultat de la fonction sont sur la feuille de calcul, avec un bouton macro pour faire des essais.
Je vous remercie pour votre aide.
Hunter296
Je suis nouveau sur ce site, et je suis ravi d'être parmi vous.
Voilà, j'ai écris le code ci-dessous sous forme de Sub, et je souhaite le rendre comme étant une fonction:
Sub ConcaténationChaines()
Dim ChaineA As String
Dim ChaineB As String
Dim ChaineC As String
Dim F1 As Integer
Dim F2 As Integer
Dim F3 As Integer
Dim E1 As Integer
ChaineA = Range("A1").Value
ChaineB = Range("B1").Value
ChaineC = Range("C1").Value
F1 = Range("F1").Value
F2 = Range("F2").Value
F3 = Range("F3").Value
E1 = Range("E1").Value
If F1 > E1 Or F1 < E1 And F2 = 0 Then
Range("D1").Value = ChaineA
Else
If F1 < E1 And F1 <> 0 Then
Range("D1").Value = ChaineA & " " & ChaineB
Else
If F1 = 0 And F2 > E1 Then
Range("D1").Value = ChaineB
Else
If F1 = 0 And F2 < E1 And F3 > 0 Then
Range("D1").Value = ChaineB & " " & ChaineC
Else
If F1 = 0 And F2 = 0 Then
Range("D1").Value = ChaineC
End If
End If
End If
End If
End If
End Sub
Qlq un peut m'aider sur ce sujet.
Les conditions du résultat de la fonction sont sur la feuille de calcul, avec un bouton macro pour faire des essais.
Je vous remercie pour votre aide.
Hunter296