question VBA remplissage automatique

Version imprimable

07/05/2024, 11h14
magalie0210

question VBA remplissage automatique

Bonjour à tous,

j'ai fait une macro qui permet de remplir les cellules de la colonne C en fonction du texte de la colonne B (choix dans une liste déroulante) et ca fonctionne très bien.
Mais j'aurais voulu que si un utilisateur remplissait plutôt la colonne C, ca remplisse dans l'autre sens la colonne B automatiquement également...mais je ne sais pas si c'est possible.
en gros si en colonne B j'ai 1 alors en C j'ai France, B=2 alors C= Chine, B=3 alors C= USA
mais si je sélectionne plutôt France en C, est ce que ca peut automatiquement me mettre le 1 dans la colonne B? etc....

merci d'avance pour votre aide!
et bonne journée

Bonjour, voici une suggestion en utilisant l'évènement _Change de la feuille. Si un changement est détecté en colonne C, on attribue la valeur correspondante en colonne B. Cette macro est à coller dans le code de la feuille, pas dans un module standard.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim KeyCells As Range
 
    Set KeyCells = Range("C:C")
 
    If Not Application.Intersect(KeyCells, Range(Target.Address)) Is Nothing Then
        ' Si la cellule modifiée est dans la colonne C, alors mettre à jour la colonne B.
        Select Case Target.Value
            Case "France"
                Cells(Target.Row, "B").Value = 1
            Case "Chine"
                Cells(Target.Row, "B").Value = 2
            Case "USA"
                Cells(Target.Row, "B").Value = 3
        End Select
    End If
End Sub

merci pour ton retour,

j'ai fait un peu le même genre que toi (ci dessous) ce qui me permet de compléter B puis C de manière automatique mais est ce que ca peut le faire dans l'autre sens sans avoir à écrire une macro démesurée?
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 Private Sub Worksheet_Change(ByVal Target As Range) If Not Application.Intersect(Target, Range("B12:B500")) Is Nothing Then Dim ligne As Integer For ligne = 12 To 500 If Cells(ligne, 2) = "1" Then Cells(ligne, 3) = "France" End If If Cells(ligne, 2) = "2" Then Cells(ligne, 3) = "Chine" End If If Cells(ligne, 2) = "3" Then Cells(ligne, 3) = "USA" End If Next ligne End If End sub
merci d'avance pour tes conseils

Bonjour
je propose de mettre un tableau dans une autre feuille en colonne A le code et en colonne B les pays (pour éventuelle évolution)
puis :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.EnableEvents = False
Dim F As Worksheet
Dim plage1 As Range
Dim plage2 As Range
Set F = Sheets("feuil2")
Set plage1 = F.Range("A2:A" & F.Range("A" & Rows.Count).End(xlUp).Row)
Set plage2 = F.Range("B2:B" & F.Range("B" & Rows.Count).End(xlUp).Row)
    If Target.Column = 1 Then
    Set C = plage1.Find(Target.Value, LookIn:=xlValues, lookat:=xlWhole)
    If Not C Is Nothing Then Cells(ActiveCell.Row, 2) = F.Cells(C.Row, 2)
   End If
   If Target.Column = 2 Then
    Set D = plage2.Find(Target.Value, LookIn:=xlValues, lookat:=xlWhole)
    If Not D Is Nothing Then Cells(ActiveCell.Row, 1) = F.Cells(D.Row, 1)
   End If
 Application.EnableEvents = True
End Sub

14/05/2024, 10h02
magalie0210

Bonjour,

Merci pour cette solution qui me parait très pratique pour la maintenance, le fait que ce soit sur une autre feuille.
Seul petit problème c'est que ca ne fonctionne pas!
peux tu m'aider?

merci d'avance et bonne journée

Bonjour à tous,
Pas de réponse, voici une autre approche

Soit une feuille Settings avec un CodeName : sys_Settings
Soit sur cette feuille un tableau nommé : vt_Pays avec deux colonnes Index et Pays
Remplir le tableau avec les villes et index voulu.

Dans l'évènement Change de la feuille où seront entrées les données mettre le code ci-dessous.

Code:

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
Option Explicit
Option Compare Text
 
Private Sub Worksheet_Change(ByVal Target As Range)
    On Error GoTo Catch
    Application.EnableEvents = False
 
    ' // Si vide, ou plusieurs cellules on quitte
    If Target.Count > 1 Or Target.Value = vbNullString Then GoTo Catch
 
    ' // Si la frappe est dans la colonne B alors on teste
    If Not Intersect(Range("B:B"), Target) Is Nothing Then
        Dim SearchedRange As Excel.Range
        Set SearchedRange = sys_Settings.Range("vt_Pays[Index]").Find(Val(Target.Value), , xlValues, xlWhole)
        If Not SearchedRange Is Nothing Then Target.Offset(0, 1).Value = SearchedRange.Offset(0, 1).Value
        'Todo "Annuler l'entrée?"
 
        ' // Si la frappe est dans la colonne C alors on teste
    ElseIf Not Intersect(Range("C:C"), Target) Is Nothing Then
        Set SearchedRange = sys_Settings.Range("vt_Pays[Pays]").Find(Target.Value, , xlValues, xlPart)
        If Not SearchedRange Is Nothing Then Target.Offset(0, -1).Value = SearchedRange.Offset(0, -1).Value
        'Todo "Annuler l'entrée?"
    End If
 
Catch:
    If Err.Number > 0 Then
        MsgBox "Oups... Nous avons rencontré une erreur : " & Err.Description
        Err.Clear
    End If
    Application.EnableEvents = True
 
End Sub

14/05/2024, 15h54
magalie0210

1 pièce(s) jointe(s)

merci pour votre aide

je mets mon fichier en PJ car il y a qq chose que je ne fais pas bien mais je ne vois pas quoi!
je pense que ca va être plus simple avec fichier à l'appui.
14/05/2024, 18h46
Valtrase

Bonjour,

Ne pas confondre le CodeName d'une feuille et son nom.
J'ai changé les nom et CodeName pour que cela soit plus clair pour vous, en "Paramètres" et "sys_Settings"

Edit:
Dans la feuille Accueil anciennement Feuill1 pour la validation de données il est recommandé de mettre un champ nommé qui pointe vers les deux colonnes du tableau exemple :
Pièce jointe 654607

il ne reste plus qu'a mettre en forme la validation de donnée avec : Autoriser : Liste, et Source =vr_Index pour la colonne A et =vr_Pays pour la colonne B.

Pièce jointe 654606

Merci pour les éléments, ca marche hyper bien et c'est tout à fait ce que je cherche à faire...
bon sauf que quand je l'insère dans mon fichier à moi (fichier que je reprends) ca marche de C vers B mais pas de B vers C...
peut etre parce que sur la feuille j'avais deja un bout de marco et que ca fait interaction?

la voici, comme je reprends le fichier je ne sais pas exactement à quoi elle sert!
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 Option Explicit Private Sub Worksheet_Change(ByVal Target As Range) Application.EnableEvents = False ' Save modified value Dim v ReDim v(1 To Target.Areas.Count) Dim i As Long For i = 1 To Target.Areas.Count v(i) = Target.Areas(i).Value2 Next i ' Undo last action Application.Undo ' Copy only the values of the last modification For i = 1 To Target.Areas.Count Target.Areas(i).Value2 = v(i) Next i Application.EnableEvents = True End Sub
qu'en penses tu?

merci d'avance

16/05/2024, 14h20
Valtrase

Bonjour,
Il vous sers à quoi le code ? Je ne vois pas son utilité, tel-quel.

tester en mettant ma procédure avant votre bout de code.

Il est primordial d'associer une gestion d'erreurs à l'utilisation de Application.EnableEvents
24/05/2024, 10h08
magalie0210

Bonjour,

encore moi,
je suis désolé mais j'ai repris le fichier test dans les échanges ci dessous et la macro ne marche plus (alors la incompréhensible).
je l'ai reproduis chez moi et elle marche de la colonne C vers B mais pas de B vers C et moi mon objectif c'est vraiment que les listes déroulantes affichent automatiquement le résultat dans l'autre colonne mais surtout que ca fonctionne dans les 2 sens.
je pense que ce n'est pas grand chose qui bloque mais il y a un truc!

Merci pour votre aide et bonne journée
24/05/2024, 10h31
magalie0210

c'est bon j'ai trouvé la solution, merci merci
30/08/2024, 11h56
magalie0210

bug macro

Bonjour à tous,

suite à votre aide, j'ai pu mettre en place la macro suivante qui fonctionne très bien:

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)

Application.EnableEvents = False

Dim SearchedRange As Excel.Range

' // Si la frappe est dans la colonne A alors on teste
If Not Intersect(Range("A:A"), Target) Is Nothing Then
Set SearchedRange = sys_Settings.Range("vt_Pays[Pays]").Find(Val(Target.Value), , xlValues, xlPart)
If Not SearchedRange Is Nothing Then Target.Offset(0, 1).Value = SearchedRange.Offset(0, 1).Value
'Todo "Annuler l'entrée?"

' // Si la frappe est dans la colonne B alors on teste
ElseIf Not Intersect(Range("B:B"), Target) Is Nothing Then
Set SearchedRange = sys_Settings.Range("vt_Pays[Nom]").Find(Target.Value, , xlValues, xlPart)
If Not SearchedRange Is Nothing Then Target.Offset(0, -1).Value = SearchedRange.Offset(0, -1).Value
'Todo "Annuler l'entrée?"
End If

Application.EnableEvents = True

j'ai juste un petit problème maintenant, si j'insère une ligne dans mon fichier Excel, cette macro plante et ca ne fonctionne plus!
est ce qu'il y aurait un moyen d'éviter ce problème? j'aimerais vraiment qu'on puisse insérer des lignes si besoin

Merci d'avance pour votre aide et bon week end
End Sub