Besoin d'aide sous Excel 2013 pour des formules dans des tableaux.

**michelb2** · 05/01/2018, 22h22

michelb2.

Bonjour,
Je vous souhaite à vous tous une très belle année 2018.
Je suis un retraité et ne connais rien en macro VBA Excel.
Je réalise des tableaux sous Excel 2013. Je connais quelques formules Excel, mais pas assez, c’est pour cela que je viens vers vous.
Bonne soirée.
Cordialement,
Michel.

Ps : fichier d'exemple joint.

Invité · 07/01/2018, 05h51

Envoyé par michelb2

Bonjour,

Le fichier joint contient deux onglets correspondant aux méthodes indiquées dans vos deux fichiers. La saisie dans les tableaux est contrôlée par l'événement Worksheet_Change et j'y ai ajouté une mise en forme conditionnelle pour les couleurs.
Je me suis permis de simplifier vos tableaux qui étaient difficilement gérables.

**michelb2** · 07/01/2018, 10h40

Bonjour Éric, et merci de la rapidité de votre aide.
La méthode 1, correspond à mon besoin pour un tableau de trois colonnes. Comment je procède pour recopier la commande « Worksheet_change » pour les autres colonnes de mon tableau.
Encore un grand merci et bon Week-end.

Michel.

Invité · 07/01/2018, 11h03

Envoyé par michelb2

Il vous faut :

Sauvegarder votre fichier en .xlsm pour qu'il contienne des macro commandes.
Créer trois zone nommées correspondant aux zones où peuvent être saisies des valeurs. Dans mon exemple AireColonneBM1, AireColonneCM1,AireColonneDM1.
Copier coller dans le module de votre onglet le code actuellement dans celui de mon onglet Méthode 1, voir ci-dessous.
Ajouter éventuellement une mise en forme conditionnelle.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
 
Option Explicit
 
Private Sub Worksheet_Change(ByVal Target As Range)
 
    If Target.Count > 1 Then Exit Sub
 
    If Not Intersect(Target, Range("AireColonneBM1")) Is Nothing Then
        If WorksheetFunction.CountA(Range("AireColonneBM1")) > 1 Then Target.ClearContents
        Select Case Target
            Case 1
 
            Case Else
                 Target.ClearContents
        End Select
        Exit Sub
    End If
 
    If Not Intersect(Target, Range("AireColonneCM1")) Is Nothing Then
        If WorksheetFunction.CountA(Range("AireColonneCM1")) > 1 Then Target.ClearContents
        Select Case Target
            Case 2
 
            Case Else
                 Target.ClearContents
        End Select
        Exit Sub
    End If
 
    If Not Intersect(Target, Range("AireColonneDM1")) Is Nothing Then
        If WorksheetFunction.CountA(Range("AireColonneDM1")) > 1 Then Target.ClearContents
        Select Case Target
            Case 3
 
            Case Else
                 Target.ClearContents
        End Select
        Exit Sub
    End If
 
End Sub

En cellule B8 :

Pièce jointe 340129

**michelb2** · 07/01/2018, 15h40

Merci Éric pour les infos.
J’ai fait la sauvegarde XLSX en XLSM. Mais je coince pour créer « trois zones nommées » je ne comprends pas ou je dois le les créer. Ensuite pour le recopier dans votre modèle.
Je me permets de joindre deux fichiers, pour me montrer la procédure.
Le premier TAT. A plusieurs colonnes 1. 2. 3. Le deuxième, plusieurs colonnes 1.2.
Encore merci, du temps passé pour un débutant… que je suis.
Bonne soirée.
Cordialement,
Michel.