Aide sur cette marco..

Efgé

XLDnaute Barbatruc

• 18 Mai 2012

• #2

Re : Aide sur cette marco..

Bonjour Youpsy, le fil, le forum
Je n'aurais certainement pas trop le temps de regarder plus avant dans ton fichier, mais avant de te lancer dans ton projet tu devrais nétoyer ton code.
L'enregistreur de macro garde des lignes inutiles dans un code.
Par exemple toutes les lignes de ActiveWindow.ScrollColumn et ActiveWindow.SmallScroll (en fait tout les scrolls)

Si on prend le début de Macro2:

VB:

    Range("B159").Select
    Selection.Copy
    Sheets("Feuil2").Select
    Range("F10").Select
    ActiveSheet.Paste
    Selection.Interior.ColorIndex = 35
    With Selection
        .HorizontalAlignment = xlLeft
        .VerticalAlignment = xlBottom
        .WrapText = True
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
    End With
    Selection.Font.Bold = True

Tu copies colle la cellule Feuille1.Range("B159") et la colle en Feuill2.Range("F10").
Cela transporte le format de la cellule et cela t'oblige à remetre le format d'origine en place.

Toutes les lignes ci dessus peuvent se résumer à
La valeur de la cellule Feuill2.Range("F10") est égale à la valeur de la cellule Feuille1.Range("B159") :

VB:

Sheets("Feuil2").Range("F10").Value = Sheets("Feuil1").Range("B159").Value

Revoi ton code ainsi et comme ça il sera plus lisible pour chacun et des propositions devraient arriver...
Cordialement

 

Vote positif 0 Vote négatif

Y

Youpsy

Guest

• 18 Mai 2012

• #3

Re : Aide sur cette marco..

Merci pour cette remarque Efgé !
Voila un fichier bien plus lisible

 

Pièces jointes

• TEST DI.zip

  138.8 KB · Affichages: 23
• TEST DI.zip

  138.8 KB · Affichages: 23
• TEST DI.zip

  138.8 KB · Affichages: 21

Vote positif 0 Vote négatif

Efgé

XLDnaute Barbatruc

• 18 Mai 2012

• #4

Re : Aide sur cette marco..

Re
Je te laisse un exemple ou j'ai fait étate par étape les modifications et la création d'un système valable pour toutes les chekbox...
On pourrait, pour faire plus propre monter un module de class mais cela serait plus long dans les explications.
Dis moi si cela te va.
Cordialement

 

Pièces jointes

• TEST DI(3).xls

  416 KB · Affichages: 44

Vote positif 0 Vote négatif

Y

Youpsy

Guest

• 18 Mai 2012

• #5

Re : Aide sur cette marco..

Mille merci !!! C'est exactement ça !
Par contre je n'ai pas bien compris ou trouvé le code "i" dans la feuil1 sous checkBox1
ou je n'ai pas regardé au bon endroit..

 

Vote positif 0 Vote négatif

Efgé

XLDnaute Barbatruc

• 18 Mai 2012

• #6

Re : Aide sur cette marco..

Re
Quand tu écris "enregDI_3 (CheckBox2.TopLeftCell.Row)" tu envois à la macro enregDI_3 la valeur de la ligne ou se trouve la chekbox.
Ensuite enregDI_3 recoi cette valeur dans la variable i
Sub enregDI_3(i As Long)
Cordialement

 

Vote positif 0 Vote négatif

Y

Youpsy

Guest

• 18 Mai 2012

• #7

Re : Aide sur cette marco..

Re, je dois être dur de tête... dsl je suis novice..

j'ai reussi à faire ma 3 eme ligne en utilisant enregDI_3b (j As Long)
mais j'ai pas compris pourquoi "j" et non "f" As Long... c'est lettre sont défini par moi ??
y a t il un tuto sur le sujet ?? pack je sais pas vraiment comment formuler ma question pour trouver un tuto
sur ça...

En tous cas un GRAND MERCI !!!

et bon week-end !!

 

Vote positif 0 Vote négatif

Efgé

XLDnaute Barbatruc

• 18 Mai 2012

• #8

Re : Aide sur cette marco..

Re
Non, non, non...
Tu peux toujours utiliser la macro Sub enregDI_3(i As Long).
C'est dans le code des chexBox que tu change la valeur du paramêtre.
Par exemple pour la ChekBox128 (c'est un exemple)

VB:

Private Sub CheckBox128_Click()
If CheckBox128.Value = True Then enregDI_3 (CheckBox128.TopLeftCell.Row)
End Sub

Tu n'a qu'a changer les numéros de chekBox et utiliser une seule macro la fameuse Sub enregDI_3(i As Long) 😀
Reprend mon dernier exemple, les deux premières ChekBox étaient préparées
Cordialement

 

Vote positif 0 Vote négatif

Paritec

XLDnaute Barbatruc

• 18 Mai 2012

• #9

Re : Aide sur cette marco..

Bonjour Fred😱 Youpsy le forum
Une autre approche sans checkbox mais à mon sens plus pratique et moins lourde
a+
papou😱

 

Pièces jointes

• Youpsy V1.zip

  137.4 KB · Affichages: 26

Vote positif 0 Vote négatif

Efgé

XLDnaute Barbatruc

• 19 Mai 2012

• #10

Re : Aide sur cette marco..

Bonjour papou 🙂 , Bonjour Youpsy,
Sur la très bonne idée de papou, une autre proposition avec des "fausses cases à cocher" au double click en colonne A.
Cordialement

 

Pièces jointes

• Youpsy V2.xls

  205 KB · Affichages: 58

Vote positif 0 Vote négatif