Excel VBA: Ouverture d'une userform si la cellule se remplit et ++

[invitebb5fe566]

Hello tout le monde!

Voilà que je m'attaque à la programmation VBA, pas facile, j'ai pratiquement oublié tous les cours que j'avais suivis, je n'ai gardé que les grandes lignes...
Bref, je souhaite rendre ce fichier à mon père qui s'en sert pour le référencement de ses clients. Vous avez le fichier en PJ.

Objectif: lorsqu'un format d'encart publicitaire est sélectionné (colonne D), une userform s'ouvre dans laquelle on sélectionne les mois (édition mensuelle) pendant lesquels il y aura parution de cette encart.

Problème principal 1: lorsque l'on choisit un format (colonne D), une userform s'ouvre toute seule (déjà créée, nommé MOIS)

J'ai rentré cette formule mais rien ne se produit...
If Range("D8") <> "" Then
Mois.Show
End If


Problème secondaire :

Dans la userform où sont sélectionnés tous les mois, comment faire pour que Excel copie le montant du format (colonne I) et le colle dans les cellules correspondant cases cochées dans la userform?
Sachant que le top du top serait d'avoir une et une seule macro pour chaque ligne
C'est à dire pour un format sélectionné en ligne 4 (en cellule D4), Excel copie le montant de l'encart qui s'affiche en I4. Dans la userform qui s'affiche, je sélectionne par exemple Septembre et Novembre, je valide et Excel a collé le montant contenu en I4 dans la colonne correspondant à Septembre et Novembre (que sur la ligne 4)

Si vous avez la solution, ce serait super car ça me permettrait de me refamiliariser avec le vocabulaire et le fonctionnement de VBA.

Merci d'avance!!
-----

[invite8f1e9402]

Bonjour anais_totally

Je crois que vous confondez les feuilles du classeur et les feuilles de Visual Basic. Ce sont des objets différents. Dans votre projet, vous n'avez créé aucune feuille.

Ci joint un petit programme en Excel 2003 qui vous montre comment il faut faire.
Quelques explications :

1- Sous VBA, on crée une feuille dans laquelle on place 1 ListBox et 2 boutons (prérequis)

2- Seules les cases de la colonne D doivent être réactives.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If ActiveCell.Column <> 4 Then
        ' Si on ne clique pas dans la colonne D, rien ne doit se passer
        Exit Sub
    Else
        ' Sinon on affiche la feuille
        UserForm1.Show
    End If
End Sub

3- Lorsque la feuille VB s'affiche, on remplit la ListBox avec les dates trouvées dans la plage J3 : DY3

Private Sub UserForm_Activate()
    Dim I As Integer
    
    ListBox1.Clear
    For I = 10 To 129
        ListBox1.AddItem Cells(3, I)
    Next I
End Sub

4- Après avoir sélectionné la plage (sélection multiple), on exécute le code si l'utilisateur clique sur OK.

Private Sub Button_OK_Click()
    Dim Selected_Line As Long
    Dim I As Integer
    
    Selected_Line = ActiveCell.Row
    For I = 0 To ListBox1.ListCount - 1
        If ListBox1.Selected(I) = True Then
            Cells(Selected_Line, I + 10) = Cells(Selected_Line, 9)
        End If
    Next I
    Unload Me
End Sub

5- Si on clique sur le bouton annuler, on referme la feuille VB, sans exécuter le code.

Private Sub Button_Cancel_Click()
    Unload Me
End Sub