VBA qui ne fonctionne plus

[bbanor]

Bonjour

Je sollicite votre aide car j'ai un fichier avec code vb qui ne fonctionne pas lorsque je rajoute des lignes au début de la feuille. Exemple si je rajoute des lignes en A. Le code et les procédures ne fonctionnent plus.

Je compte sur votre aide précieuse.

Merci d'avance

Ps : Je vous mets le fichier en PJ

Merci

 

[Gael]

Re : VBA qui ne fonctionne plus

Bonjour bbanor,

Effectivement, le code est basé sur des numéros de lignes précis. Si tu ajoutes des lignes en feuille 2 au dessus de la cellule contenant le nom, il faut modifier les éléments suivants.

With Sheets("Feuil2")
.Range("[COLOR=red]A7[/COLOR]:C1000").ClearContents
Nom = .Range("[COLOR=red]B6[/COLOR]").Value
End With

7 étant la première ligne à effacer
B6 étant la cellule contenant le nom

Dans le report des données:

' Report des données
With Sheets("Feuil2")
L = [COLOR=red]7[/COLOR]

7 étant la première ligne où l'on écrit les données.

Puis dans la macro évènementielle dans "Feuil2":

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("[COLOR=red]B6[/COLOR]")) Is Nothing Then
ReportResultats
End If
End Sub

B6 pour que la macro se déclenche sur un changement de nom.

@+

Gael

 

[pierrejean]

Re : VBA qui ne fonctionne plus

bonjour bbanor

Il faut adapter le code en fonction du nombre de lignes insérée
Vois les modifications faites
Si imperatif on peut concevoir une detection des lignes d'origine mais dans ce cas il faut connaitre comment se reperer

Edit : Salut Gael 🙂

 

[bbanor]

Re : VBA qui ne fonctionne plus

Merci pour le coup de main. Mais il me reste un problème je fonction avec excel Mac 2004 et ma liste déroulante pour les noms d'élève ne fonctionne plus. Est ce normal ?

Merci pour votre aide

 

[Gael]

Re : VBA qui ne fonctionne plus

Re et Salut PierreJean,

Pour la liste déroulante, tu dois avoir 2 choses:

* Une liste définie qui doit s'appeler "Nom_élèves" à définir avec insertion - nom - définir avec comme référence: =Feuil1!$C$1:$AE$1

* La liste doit être utilisée pour la validation de la zone Nom:
Tu sélectionnes la cellule B6 en feuille 2
Tu fais Données - Validation
Autoriser: Liste
Source: "=Nom_élèves"

et tout doit marcher, mais je ne connais pas la version Mac.

@+

Gael

 

[bbanor]

Re : VBA qui ne fonctionne plus

Merci Gaël

J'ai bien essayé données - validation mais ça ne marche pas. Je pense le problème vient du fait que les noms sont en liste horizontale et non verticale. Je dis peut être n'importe quoi.

Quelqu'un a-t-il une idée ?