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
 

Discussions similaires


Haut Bas