Macro pour base planning

[Christian0258]

Bonjour à tout le forum,

Je souhaiterais votre aide afin d'écrire une macro pour compléter cette appli... voir fichier joint avec explications.

Je vous remercie, par avance, pour le temps que vous voudrez bien vouloir m'accorder.

Bien amicalement,
Christian

 

[Christian0258]

Re, le forum,

J'ai essayé de bidouiller quelque chose (pour moi c'est le bon terme...lol)...

Pourriez-vous me dire pourquoi ça plante à la fin. voir fichier

Merci pour votre aide.
Bien à vous,
Christian

 

[Christian0258]

Re, le forum,
Bonjour à tout le forum,

alors, pas inspiré par ma demande....lol

Bien à vous,
Christian

 

[jpb388]

Bonjour a tous
dans la macro CommandButton1_Click
les .range ou .cells fonctionnent avec un with si pas de with mettre le nom de nom de la feuille concernée devant
with feuil1
.range
end with

feuil1.range

ou si c'est la feuille active range sans point devant

 

[Christian0258]

Re, le forum, jpb388

Merci, jpb338, pour ton aide.
Malgré tes explications très claires, je n'arrive pas à corriger la macro...
Peux-tu me la corriger dans le fichier ? (suis pas très doué en VBA)

Bien à toi,
Cordialement,
Christian

 

[jpb388]

re

Private Sub CommandButton1_Click()    'valider
    Dim cel As Range, C As Byte, DerL As Integer, LD As Long, Lf As Long
    Dim X As Double
    Application.ScreenUpdating = False
    Application.EnableEvents = False
    Application.Calculation = xlCalculationManual
    With Feuil1
        X = Replace(UserForm2.ComboBox3, "%", "") / 100
        X = .Range("AF" & Me.ComboBox2.ListIndex + 20).Value / 5 * X
        For L = LD To Lf
            If test(.Range("AA" & L)) = False Then
                .Range("AB" & L).Value = UserForm2.ComboBox2
                .Range("AC" & L).Value = X
                .Range("AD" & L).Value = UserForm2.ComboBox3
                End If
        Next L
        UserForm2.ComboBox2.ListIndex = -1
        UserForm2.ComboBox3.ListIndex = -1
       
    End With
    Application.EnableEvents = True
    Application.ScreenUpdating = True
    Application.Calculation = xlCalculationAutomatic
    Unload Me
End Sub

voila la rectif mais quand même cela ne fonctionne pas car
la fonction ou procédure test n'existe pas
ld et lf =0 2 eme source d'erreur
le reste a priori est bon

 

[Christian0258]

Re, le forum, jpb388,

Merci beaucoup, jpb388, pour le code. Je vais essayer de trouver cette histoire de test ???

Bien à toi,
Christian

 

[jpb388]

Bonjour à tous
j'ai modifié selon ce que j'ai compris