position volet figé

[breeze]

Bonjour je travail avec un macro qui ne va pas bien.
J'ai des noms à déposer dans des grilles. Tout dépendant de l'années il y a 5 case où ils peuvent se positionner en D3, D74 D145, D217 ou D289.
Ce que j'aimerais c'est que lorsque le nom apparait dans sa cellule cette cellule remonte
juste en dessous de la ligne 3 que j'ai figé.
Voici la macro j'ai mis en rouge l'endroit ou ça bug

Private Sub ComboBox3_Change()
On Error Resume Next
Sheets("feuil2").Select
Range("d3").ClearContents
Range("d74").ClearContents
Range("d145").ClearContents
Range("d217").ClearContents
Range("d289").ClearContents

Dim Annee As Integer
Dim rg As Range 'plage contenant les noms des élèves
Dim NbLignes As Integer


Set rg = Sheets("Feuil1").Range("D6😀400") 'plage contenant les noms des élèves

Annee = rg.Find(What:=ComboBox3.Value, LookIn:=xlValues, LookAt:=xlWhole).Offset(0, -2).Value 'année se trouve 1 colonne à gauche

Select Case Annee
Case 1: NbLignes = 1
Case 2: NbLignes = 72
Case 3: NbLignes = 143
Case 4: NbLignes = 215
Case 5: NbLignes = 287

End Select

Sheets("Feuil2").Range("D2").Offset(NbLignes, 0).Value = ComboBox3.Value 'On part de D1
Range("D1").Offset(NbLignes + 37, 0).Select 'choisi une cellule en bas, chiffre 20 à changer selon écran
Range("D1").Offset(NbLignes, 0).Select 'pour se positionner sur la bonne celluleEnd Sub

Merci

 

[breeze]

Re : position volet figé

Bonjour,
Excuse mon ignorance mais je fais quoi avec cette phrase.
Je l'ai mise à la place de "Range("D1").Offset(NbLignes + 37, 0).Select "sauf qu'il y a encore une ligne de trop. Il faudrait que ça remonte encore . C'est à dire que ma 2ième grille commence à d74, En d73 il y a un espace et D72 est la dernière ligne de la première grille il faudrait que la d 72 disparaisse.
Merci

 

[breeze]

Re : position volet figé

Bonjour,
Le problème c'est que mon classeur à 12 mg et je ne peu le fractionner à cause des macro.

Merci

 

[breeze]

Re : position volet figé

Merci,
J'ai trouvé mon problème en ajoutant NbLignes +1
Ça marche à merveille.
Merci mille fois pou tes judicieux conseils