formule vba

[marleauc]

Bonjour,
j'utilise une vba pour faire ou ajouter des mise a jour dans un fichier , jusque la tout fonctionne bien, la j'aimerais que ma formule puisse ignorer la colonne N..est-ce possible?

merci

voici la formule utiliser
formPrivate Sub BoutAjout_Click()
If TextBNom.Text = "" Then Beep: Exit Sub
If SurAjout Then
SurAjout = False
BoutAjout.Caption = "Modifier/ Mise a jour"
BoutNew.Caption = "Nouveau"
AjoutDansBase
Else
If IndexBase = 0 Then Beep Else ModifieBase
End If
Endsub

 

[job75]

Re : formule vba

Bonjour marleauc,

la j'aimerais que ma formule puisse ignorer la colonne N..est-ce possible?

Cela ne présente guère de difficulté en VBA.

Pour en dire plus il faudra voir les macros AjoutDansBase et ModifieBase...

A+

 

[marleauc]

Re : formule vba

salut

Ok voici la formule pour modifie base..je suis pret a travailler (lol) mais peux-tu m'orienter svp dans mes recherche en m'expliquant la formule si tu es dispo.
faut-il utiliser While Not Range
merci encore de ton temps c'est très apprécier
PS:
Private Sub ModifieBase()
Dim Lgn As Range, Bcle&
Set Lgn = PlageBase(IndexBase, 1)
For Bcle = 1 To ColTb.Count
Lgn(1, Bcle).Value = ColTb(Bcle).Text
Next Bcle
End Sub

 

[job75]

Re : formule vba

Re,

Sans voir le fichier j'imagine :

'boucle excluant la colonne N ?
For Bcle = 1 To ColTb.Count
If ColTb(Bcle).Column <> 14 Then Lgn(1, Bcle).Value = ColTb(Bcle).Text
Next

A+

 

[marleauc]

Re : formule vba

salut
j'ai essayé mais j'Ai un erreur 438.. jete mets mon fichier en annexe.. N correspond au textbox ou on voit le nombre de mois..donc, lorsque je modifie le textbox (date de filtrage et que je clic sur le nombre de mois voulu tout fonctionne ensuite jA'ppui sur le bouton mise a jour la je comprends que ma formule indique de remplacer la base par les modification apporté mais quand je fais cela, je remplace la valeur de la celleule N , mais en même temps je me trouve a suppriemr la formule ...je sais si tu comprends,,
merci de ton aide je continue a chercher une solution

 

[job75]

Re : formule vba

Re,

J'ai juste regardé le fichier pour voir ce qu'est ColTb : c'est une Collection, pas un Range.

Donc utilisez :

'boucle excluant la colonne N
For Bcle = 1 To ColTb.Count
If Lgn(1, Bcle).Column <> 14 Then Lgn(1, Bcle).Value = ColTb(Bcle).Text
Next

A+

 

[marleauc]

Re : formule vba

wow un gros merci donc c'était plutot une ligne qu'un ensemble ..merci c tr`s gentil

bon week-end