Modifier formule par VBA

maval

XLDnaute Barbatruc
Bonjour

Je suis a la recherche d'un code VBA pour remplacer mes formules des colonnes "A & B"qui est:

Code:
=GAUCHE(C10;1)
Sur la colonne "A" et sur la colonne "B" j'ai ceci:
Code:
=SI(C10<>"";B9+1;"")
Je vous remercie de votre aide et vous souhaite une bonne journée

Cordialement

Max
 

Hulk

XLDnaute Barbatruc
Re : Modifier formule par VBA

Hello maval,

Code:
'=GAUCHE(C10;1)
g = Left(Range("C10").Value, 1)
Code:
'=SI(C10<>"";B9+1;"")
If Range("C10").Value <> "" Then
    Range("B9").Value = Range("B9").Value + 1
Else
    Range("??").Value = ""
End If
 

maval

XLDnaute Barbatruc
Re : Modifier formule par VBA

Bonjour Hulk

Et merci d'avoir répondu

En faite mon code initiale est:

Code:
Private Sub CommandButton1_Click()
    Dim nlleLigne As Long, cel As Range
    'On recherche la première ligne disponible
   
    Set cel = Range("A:A").SpecialCells(xlCellTypeFormulas).Find("", LookIn:=xlValues, lookat:=xlWhole)
    If Not cel Is Nothing Then nlleLigne = cel.Row
    Cells(nlleLigne, 3) = TextNomComplet.Value
    Cells(nlleLigne, 4) = TextAdresse.Value
    Cells(nlleLigne, 5) = TextCp.Value
    Cells(nlleLigne, 6) = TextVille.Value
    Cells(nlleLigne, 7) = TextTel.Value
    Cells(nlleLigne, 8) = TextPortable.Value
    Cells(nlleLigne, 9) = TextFax.Value
    Cells(nlleLigne, 10) = TextEmail1 & "@" & TextEmail2.Value  'Email
           ActiveSheet.Hyperlinks.Add Cells(nlleLigne, 10), Address:="mailto:" & "TextEmail1 &  TextEmail2" 'Email actif sur la feuille
    
    Cells(nlleLigne, 11) = ComboBox1.Value
    Cells(nlleLigne, 12) = TextNom.Value
    Cells(nlleLigne, 13) = TextPrenom.Value
Comment je peut ajouter le code que tu ma fait..........

Merci d'avance

Bonne journée

Max
 

Hulk

XLDnaute Barbatruc
Re : Modifier formule par VBA

Ça ne m'en dit pas plus Max.

Donc, tes formules =Gauche(C10;1) et =SI(C10<>"";B9+1;""), elles vont où ?

Vaut mieux bien préciser le problème !
 

maval

XLDnaute Barbatruc
Re : Modifier formule par VBA

Bonjour Hulk

Je vais essayer de faire simple.
Avec mon code Post3, lorsque je rentre un client sur une ligne le code "Cells(nlleLigne, 3) = TextNomComplet.Value" commence à la colonne "C" par le nom du client et avec la formule "=Gauche(C10;1) " j'ai la première lettre du client qui s'affiche dans la cellule "A" et avec le code "=SI(C10<>"";B9+1;"")" j'ai le N° +1 dans la colonne "B" ect...

J’espère avoir était simple?

Je te souhaite une bonne journée

Max
 

Créez un compte ou connectez vous pour répondre

Vous devez être membre afin de pouvoir répondre ici

Créer un compte

Créez un compte Excel Downloads. C'est simple!

Connexion

Vous avez déjà un compte? Connectez vous ici.

Haut Bas