Aide VBA excel [Résolu]

pour ta macro meliani_82 la reponse de irem marche mais je prefere cette syntaxe qui est plus simple (d'après moi)

--------------------------------------------------------------------
i = 2
While Cells(1, i) <> ""

'définition des variables
nom_boisson = ""
posa = Cells(1, i)
posb = Cells(2, i)
nbla = Len(posa)
nblb = Len(posb)

'récupération des valeurs
prix_unitaire = Mid$(posa, nbla - 1, 1)
nombre_de_boissons = Mid$(posb, 1, 1)

'récupération du nom des boissons
For boucle = 2 To nblb
nom_boisson = nom_boisson & Mid$(posb, boucle, 1)
Next boucle

'affichage
Cells(3, i) = nom_boisson & " : " & prix_unitaire * nombre_de_boissons & "€"

'continue tant qu'il y a d'autres boissons
i = i + 1
Wend

'xvyr - programmeur VBA
'xvyr-du-78@hotmail.fr
--------------------------------------------------------------------
la syntaxe doit etre par exemple ->
champ 1 : coca 3€
champ2 : 3 coca
champ 3 : rien
on peut changer les champ 1 et 2. la marco s'occupe du champ 3

Désolé de répondre à votre question par une autre question mais je voudrais être sur de bien comprendre...

Vous avez une chaine de caracteres donnant le prix du style
"fanta 3€, coca 2€,..."
Vous avez une seconde chaine de caracteres donnant
"3coca, 2 fanta,..."
et le résultat est une troisième chaine de caractères donnant
"3 coca : 6€, 2 fanta : 6€"...

est-ce bien cela?

Irem

Bonsoir
Quel est le but de ta macro car honnetement si c'est pour faire le total, une ercopie de formule devrait suffire.
Il faut nous dire un peu plus sur le but final recherché

tout a fait d'accord. quel est le but de l'application?
Et puis veux-tu utiliser un formulaire ou pas?

je ferais comme suit :

Sub test()
MsgBox get_Somme("coca 2€;fanta 3€", "2 coca;5 fanta")
End Sub

Function get_Somme(str_valeurs As String, str_choix As String) As String
'on parse les entrées pour faire le total
'entrées : str_valeurs "coca 2€;fanta 3€;..."
' str_choix "3 coca; 2 fanta;..."
'sortie : "coca : 6€;fanta 6€;...."
Const Ct_Csv_Sep = ";" 'separateur du champ csv

Dim Tab_Valeurs, Tab_Choix
Dim My_Valeurs, My_Choix As String
'on vire les espaces et les euros
My_Valeurs = Replace(Trim(Replace(str_valeurs, "€", "")), ":", "")
My_Choix = Replace(Trim(Replace(str_choix, "€", "")), ":", "")
'on splitte l'entrée et les choix
Tab_Valeurs = Split(My_Valeurs, Ct_Csv_Sep, -1, vbTextCompare)
Tab_Choix = Split(My_Choix, Ct_Csv_Sep, -1, vbTextCompare)
'on a ainsi deux tableaux avec les deux strings
Dim My_Result, My_Entree, My_Boisson As String
Dim My_Nombre, My_Prix As Integer
Dim int_I, Int_J, Int_k As Integer
For int_I = 0 To UBound(Tab_Choix)
My_Entree = Tab_Choix(int_I)
Int_k = InStr(1, My_Entree, " ", vbTextCompare)
If Int_k > 1 Then
My_Nombre = Left(My_Entree, Int_k - 1)
My_Boisson = Right(My_Entree, Len(My_Entree) - Int_k)
For Int_J = 0 To UBound(Tab_Valeurs)
If InStr(1, Tab_Valeurs(Int_J), My_Boisson) Then
'on est sur le bon prix
Int_k = InStr(1, Tab_Valeurs(Int_J), " ", vbTextCompare)
My_Result = My_Result & My_Nombre & " " & My_Boisson & _
" : " & CStr(My_Nombre * Right(Tab_Valeurs(Int_J), Len(Tab_Valeurs(Int_J)) - Int_k)) & " €" & Ct_Csv_Sep

End If
Next Int_J
End If
Next int_I
get_Somme = My_Result
End Function


Irem

En fait tout dépend si tu veux une entrée par ligne ou si tu as directement la ligne complète des tarifs et la ligne complète des commandes (le prog de xvyr est bon dans le premier cas, le mien dans le second).

Par ailleurs, pense à fermer le sujet

Bonne journée

Irem

bonjour a rous
je suis un peu nul en VBA et jaurais besoin daide.
comment je pourrais faire pour atteindre l equation d une trendline et generer un msgbox qui dit si l ordonnee a l origine de ma trendline est positive ou negative ( trendline lineaire).
demandez moi si jai pas ete clair.
merci bcp d avance

Bonjour à tous,
je dois effectuer des projets en vba, mais je suis pas très douée, je dois réaliser un convertisseur de monnaies avec au moins 3 monnaies (dont l’euro) accessibles par une boîte combo avec possibilité de rajouter des nouvelles devises (par l’intermédiaire de la feuille excel).

mais également un palindromisateur© avec comme contraintes
Reconnaitre si la chaîne saisie est un palindrome
Le programme doit pouvoir GENERER un palindrome.


Merci beaucoup de votre aide