combinaison de codes

Citaro · 21 Octobre 2015

Bonsoir au forum
je bloque sur une formule en vba

En validant un userform la valeur d'un comboBox s'inscrit en colonne M avec le code :ActiveCell.Offset(0, 11) = ComboBoxCateg.Value
je voudrais en colonne M joindre aussi le résultat de la formule ci dessous
ActiveCell.FormulaR1C1 = "=RC[-8]&"" ""&(VLOOKUP(RC[-8],Code_Analytique_ASC,2))"

J'ai testé en reliant les 2 codes par & ,j’obtiens FAUX

Merci d'avance

Papou-net · 21 Octobre 2015

Re : combinaison de codes

Bonsoir Citaro,

A première vue, tu ne peux pas concaténer une valeur et une formule à insérer dans une cellule. Il faudrait que tu calcules ta formule en code VBA.

Un fichier exemple serait le bienvenu pour continuer sur le sujet.

A +

Cordialement.

Citaro · 22 Octobre 2015

Re : combinaison de codes

Bonjour,

Voilà un fichier test avec plus d'explication dessus

Cordialement

Citaro

Papou-net · 22 Octobre 2015

Re : combinaison de codes

Bonjour Citaro,

Voici un exemple avec mise-à-jour automatique de la colonne M par macro événementielle.

Cordialement.

Citaro · 22 Octobre 2015

Re : combinaison de codes

Re Papou-net

Ta solution fonctionne si l'on insère les données dans le la feuille comptes sans passer par le userform ajout
Je recherche une solution qui rajoute en M10 la formule par le userform

Ma formule parait correcte dans le userFormAjout
Range("M65536").End(xlUp).Offset(1, 0).Select
ActiveCell.FormulaR1C1 = "=RC[-6]&"" ""&(VLOOKUP(RC[-6],Code_Analytique_ASC,2))"

Mais sans succès

Merci
Au plus tard

Papou-net · 22 Octobre 2015

Re : combinaison de codes

RE:

Alors il faut modifier ton code, comme dans l'extrait ci-dessous:

Code:

Private Sub CommandButtonValider_Click()
    Application.ScreenUpdating = False
    'Désactiver les macro, notamment la worksheet_change pour les fausses checkbox en colonne I :
    Application.EnableEvents = False

    ''Pour chronométrer la procédure
    '    Dim t As Date
    '    t = Time

    'Valeurs frmPrelevements
    Range("C65536").End(xlUp).Offset(1, 0).Select
    ActiveCell = Format(Me.datesaisie.Value, "mm/dd/yyyy")
    ActiveCell.Offset(0, 1) = ComboBoxMode.Value
    ActiveCell.Offset(0, 2) = TextBoxCheque.Value
    ActiveCell.Offset(0, 3) = ComboBoxTiers.Value
    ActiveCell.Offset(0, 4) = ComboBoxGroupe.Value
    ActiveCell.Offset(0, 5) = ComboBoxCateg.Value
    ActiveCell.Offset(0, 10) = ComboBoxGroupe.Value & " " & Application.VLookup(CInt(ComboBoxGroupe.Value), Feuil5.Range("A:B"), 2)

    'Fausse checkbox
    ActiveCell.Offset(0, 6).Value = "o"
   ...
   ...
   End Sub

Il faut bien sûr faire la même modif dans le code de CommandButton4.

Pour info, et si je puis me permettre, je trouve ton code très compliqué. Sache, qu'entre autres, il n'est pas nécessaire de sélectionner des cellules pour les modifier. Par ailleurs, il serait possible d'affecter une macro commune pour les deux boutons de validation. La copie des formats de cellules peut se faire sur une plage de cellules d'une seule action, sans passer par une boucle. Mais cette restructuration demanderait un travail fastidieux qui sort du cadre de ta demande.

Cordialement.

Citaro · 22 Octobre 2015

Re : combinaison de codes

Merci Papou-net,

Ce code fonctionne et me convient très bien.
C'est sûr il y a des améliorations à apporter au code, je le reverrai plus tard

Bonne soirée
Citaro

combinaison de codes

Citaro

XLDnaute Occasionnel

Papou-net

XLDnaute Barbatruc

Citaro

XLDnaute Occasionnel

Pièces jointes

Papou-net

XLDnaute Barbatruc

Pièces jointes

Citaro

XLDnaute Occasionnel

Papou-net

XLDnaute Barbatruc

Citaro

XLDnaute Occasionnel

Discussions similaires

combinaison de codes

Citaro

XLDnaute Occasionnel

Papou-net

XLDnaute Barbatruc

Citaro

XLDnaute Occasionnel

Pièces jointes

Papou-net

XLDnaute Barbatruc

Pièces jointes

Citaro

XLDnaute Occasionnel

Papou-net

XLDnaute Barbatruc

Citaro

XLDnaute Occasionnel

Discussions similaires

Privacy & Transparency

Privacy & Transparency