Discussion :

[JemaCodeur]

Bonjour,

J'ai besoin d'aide concernant mon programme de RechercheV ci-contre :

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
42
43
44
45
46
47
48
49
50
 
Dim Ligne As Integer
Dim ListeEtudiant As String
Dim rng As Range
 
Private Sub Worksheet_Change(ByVal Target As Range)
    Ligne = ActiveCell.Row
 
    For Each cellule In Selection
 
 
        If Not Intersect([H12:H26], Target) Is Nothing And Target.Count = 1 Then
            If Not Target.Address <= "$G$11" Then
                Set TableauRecherche = Sheets("Feuil2").UsedRange
                With Sheets("Feuil1")
                    .Cells(Ligne, 7).Formula = "=VLOOKUP(" & Columns(8).Address & ",Feuil2!" & TableauRecherche.Address & ",3,FALSE)"
                    ' Probléme
                    Set rng = Worksheets("Feuil2").Range("G11:G26")
                    Selection.AutoFill Destination:=rng, Type:=xlFillDefault
                End With
            End If
        End If
 
 
 
    Next cellule
End Sub
 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 
    If Selection.Cells.CountLarge > 10 Then
    Else
 
        Ligne = ActiveCell.Row
 
        ' Gestion de validation des données de liste déroulante
        If Not Intersect(Target, Range("H12:H26")) Is Nothing Then
            If Not Target.Address <= "$H$11" Then
                ListeEtudiant = "='Feuil2'!$A$2:$A$9"
                With Range("H" & Ligne).Validation
                    .Delete
                    .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:=xlBetween, Formula1:=ListeEtudiant
                End With
            End If
        End If
 
 
 
    End If
End Sub

A l'exécution il m'affiche que la méthode Autofill a échoué. Alors que j'ai tout fait.

En PJ le fichier xls si besoin.

Je crois que je vais jeter mon PC par la fenêtre

Merci d'avance de me sortir de ce pétrin.

[ARTURO83]

Bonjour,

A l'exécution il m'affiche que la méthode Autofill a échoué. Alors que j'ai tout fait

.
Il y a probablement une meilleure solution, mais si vous nous décriviez exactement ce que vous voulez faire plutôt que de nous proposer votre code, ne serait-ce pas plus simple?

Cdlt

[Pierre Fauconnier]

Salut.

La méthode AutoFill réalise en VBA ce que tu ferais avec la poignée de recopie en Excel pour incrémenter des valeurs.

La destination doit donc comprendre la source et la source doit être à une extrémité de la destination. Tu peux étirer G1:G2 sur G1:G20 ou G19:G20 sur G1:G20, mais tu ne peux pas étirer G5:G6 sur G1:G20 ni G1:G2 sur H1:H20. Or, ta destination semble être sur une autre feuille que ta source.



De plus, si on analyse ton code on voit que, dans l'évènement Change, tu travailles en même temps avec Target que tu testes comme étant une cellule unique et Selection, plage des cellules sélectionnées sur lesquelles tu boucles. C'est une configuration très précise de saisie qui permet cela et je ne suis pas certain que ce soit la tienne.

Dis-nous ce que tu veux faire, sans code vba et sans jargon technique, et nous pourrons probablement mieux t'aider.

[JemaCodeur]

Salut,

Merci de vos réponses.
Ce que je veux concrètement c'est d'appliquer une formule rechercheV en VBA sur un ensemble de colonne.
Étant novice dans ce langage, grace à la documentation MS et des recherches dans des forums, j'ai pu écrire ce code.

Le probléme c'est que :

1. Si je mets,

   Code :

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

   Range("G11").Select

   La méthode AutoFill n'échoue pas. Mais, à chaque application de la formule dans une cellule, la sélection retourne à la cellule [G11].
2. Si je veux mettre

   Code :

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

   Range("G11:G26").Select

   La méthode AutoFill échoue.

[Pierre Fauconnier]

[...]
Ce que je veux concrètement c'est d'appliquer une formule rechercheV en VBA sur un ensemble de colonne.[...]

Sur plusieurs colonnes je suppose que ça veut dire que tu dois décaler les numéros de colonne? Tu peux donner un exemple de ton tableau de départ et des plages d'arrivées? (Copie d'écran, éventuellement anonymisée)

Cela dit, je ne saisis pas bien pourquoi tu veux réaliser cela sur l'évènement Change, ni pourquoi tu veux le faire en VBA. Normalement, on place le décor via Excel, puis on joue la pièce, éventuellement avec VBA pour automatiser...

[JemaCodeur]

Sur plusieurs colonnes je suppose que ça veut dire que tu dois décaler les numéros de colonne? Tu peux donner un exemple de ton tableau de départ et des plages d'arrivées? (Copie d'écran, éventuellement anonymisée)

Cela dit, je ne saisis pas bien pourquoi tu veux réaliser cela sur l'évènement Change, ni pourquoi tu veux le faire en VBA. Normalement, on place le décor via Excel, puis on joue la pièce, éventuellement avec VBA pour automatiser...

Pardon j'avais pas vu ce message.

Oups, Je me rectifie

Je veux appliquer la formule RECHERCHEV sur une plage de cellules d'une colonne.

En PJ une copie d'écran de mon tableau


La colonne NOTES contient la formule RECHERCHEV
La colonne ETUDIANTS contient la liste déroulante dépendante.

Merci.

[Pierre Fauconnier]

Je ne comprends pas le lien entre RECHERCHEV et AUTOFILL.

As-tu bien lu ce que j'ai dit sur AUTOFILL?

[JemaCodeur]

Je ne comprends pas le lien entre RECHERCHEV et AUTOFILL.

As-tu bien lu ce que j'ai dit sur AUTOFILL?

Si j'ai bien lu. D'ailleurs c'est ce qui m'a permit de faire une copie de la formule RECHERCHEV de la cellule [G12] sur la plage [G12:G26] .

Avec ce ligne de code :

Code :

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

Range("G12").AutoFill Destination:=Range("G12:G26"), Type:=xlFillDefault

Par contre, ce que j'ai pas bien compris c'est cette partie :

De plus, si on analyse ton code on voit que, dans l'évènement Change, tu travailles en même temps avec Target que tu testes comme étant une cellule unique et Selection, plage des cellules sélectionnées sur lesquelles tu boucles. C'est une configuration très précise de saisie qui permet cela et je ne suis pas certain que ce soit la tienne.

[Pierre Fauconnier]

Perso, j'aurais fait Range("g12:g26").formula = range("g12").formula
J'expliquais que lors du change, pouvoir boucler sur Selection requérait à mon avis une situation particulière sur ta feuille, si toutefois l'évènement Change est levé sur action de l'utilisateur et pas sur code.

Mais comme on ne sait toujours pas ce que tu veux faire, on ne peut t'aider que sur tes petits bouts de code et je sens le gaz de l'usine arriver à mes narines. Je ne m'avance pas trop en disant que l'on peut réaliser ce que souhaites avec un code mieux construit et "plus simple" (il n'y a pas d'attaque personnelle, c'est un constat purement technique). Mais comme on ne sait pas ce que tu veux réaliser...

[JemaCodeur]

Perso, j'aurais fait Range("g12:g26").formula = range("g12").formula
J'expliquais que lors du change, pouvoir boucler sur Selection requérait à mon avis une situation particulière sur ta feuille, si toutefois l'évènement Change est levé sur action de l'utilisateur et pas sur code.

Je viens de simplifier mon code grace à vos remarques

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
Private Sub Worksheet_Change(ByVal Target As Range)
    Ligne = ActiveCell.Row
 
        If Not Intersect([H12:H26], Target) Is Nothing And Target.Count = 1 Then
            If Not Target.Address <= "$G$11" Then
 
                Set TableauRecherche = Sheets("Feuil2").UsedRange
 
                With ActiveSheet
                    ' Application de la formule RECHERCHEV sur la cellule active de la colonne de la colonne [G]
                    .Cells(Ligne, 7).Formula = "=VLOOKUP(" & Columns(8).Address & ",Feuil2!" & TableauRecherche.Address & ",3,FALSE)"
 
                    ' Copie de la cellule [G12] sur la plage [G12:G26]
                    Range("G12").AutoFill Destination:=Range("G12:G26"), Type:=xlFillDefault
 
                End With
            End If
        End If
End Sub

Si je comprends bien vous voulez me dire que ma boucle sur la Selection n'a pas lieu d'être dans ma Procedure Change.
Par contre, je ne vois pas comment pourrait - on coller votre suggestion à mon code ?

J’espère que vous allez comprendre mon code de débutant

Mais comme on ne sait toujours pas ce que tu veux faire, on ne peut t'aider que sur tes petits bouts de code et je sens le gaz de l'usine arriver à mes narines. Je ne m'avance pas trop en disant que l'on peut réaliser ce que souhaites avec un code mieux construit et "plus simple" (il n'y a pas d'attaque personnelle, c'est un constat purement technique). Mais comme on ne sait pas ce que tu veux réaliser...

Ce que je veux concrètement c'est d'appliquer une formule rechercheV en VBA sur un ensemble de colonne.

Ne vous inquiétez pas, du moment où les critiques me permettent d'avancer je n'y vois pas de soucis.

[Pierre Fauconnier]

Toujours pas certain d'avoir compris... Tu saisis les données en H et tu veux leur note en G

Si c'est cela, tu devrais travailler avec des tableaux structurés, car:

• les plages grandissent automatiquement à l'ajout des données;
• La formule saisie dans une colonne est propagée sur toute la colonne;
• Si on ajoute des données dans le tableau structuré source, on récupère les données dans la cible.

Dans la deuxième illustration, l'éclair affiché signale qu'Excel a propagé la formule. Si le tableau grandit en D:E, la formule sera automatiquement ajoutée aux nouvelles lignes.

C'est de cela dont je parle lorsque je dis "planter le décor" on crée la structure, et après, on saisit les données et on les analyse.

[JemaCodeur]

Toujours pas certain d'avoir compris... Tu saisis les données en H et tu veux leur note en G

Exactement d'où ma formule RECHERCHEV.

Si c'est cela, tu devrais travailler avec des tableaux structurés, car:

• les plages grandissent automatiquement à l'ajout des données;
• La formule saisie dans une colonne est propagée sur toute la colonne;
• Si on ajoute des données dans le tableau structuré source, on récupère les données dans la cible.

Dans la deuxième illustration, l'éclair affiché signale qu'Excel a propagé la formule. Si le tableau grandit en D:E, la formule sera automatiquement ajoutée aux nouvelles lignes.

C'est de cela dont je parle lorsque je dis "planter le décor" on crée la structure, et après, on saisit les données et on les analyse [...]

Finalement, J'ai pu trouvé une solution avec le code VBA.
Certainement vous vous demandez pourquoi pas travailler avec les tableaux structurés directement.
Mon but est d'éviter l’effacement des cellules ainsi que l'effacement de mes formules chose que j'avais évoquer dans mes sujets précédents.

merci à vous M. Fauconnier

[JemaCodeur]

Toujours pas certain d'avoir compris... Tu saisis les données en H et tu veux leur note en G

Exactement d'où ma formule RECHERCHEV.

Si c'est cela, tu devrais travailler avec des tableaux structurés, car:

• les plages grandissent automatiquement à l'ajout des données;
• La formule saisie dans une colonne est propagée sur toute la colonne;
• Si on ajoute des données dans le tableau structuré source, on récupère les données dans la cible.

Dans la deuxième illustration, l'éclair affiché signale qu'Excel a propagé la formule. Si le tableau grandit en D:E, la formule sera automatiquement ajoutée aux nouvelles lignes.

C'est de cela dont je parle lorsque je dis "planter le décor" on crée la structure, et après, on saisit les données et on les analyse [...]

Finalement, J'ai pu trouvé une solution avec le code VBA.
Certainement vous vous demandez pourquoi pas travailler avec les tableaux structurés directement.
Mon but est d'éviter l’effacement des cellules ainsi que l'effacement de mes formules que j'avais évoquer dans mes sujets précédents.

merci à vous M. Fauconnier