Compter à partir de A5 puis xlUP.row

Question

Bonsoir à tous,
J'ai besoin d'aide dans cette formule car je souhaiterai modifier la ligne si dessous :

rw2 = sh2.Cells(Rows.Count, 1).End(xlUp).Row + 1

Je souhaiterai que le count démarre à partir de A5 en remontant puis executer le reste de la formule......

Merci pour votre aide

B) ==> AFFICHE _ Mise en place du code par double click pour l'Affiche

Dim sh1 As Object, sh2 As Object, rw2 As Long, Dl As Long
Set sh1 = Sheets("Suivi Dossier") Dl = sh1.Range("D" & Rows.Count).End(xlUp).Row
If Not Application.Intersect(Target, Range("D2:D" & Dl)) Is Nothing Then
Target.Offset(0, 1).Select 'decale et selectionne la cellule sur la droite afin d'eviter de rentrer à l'intérieur de la cellule
Set sh2 = Sheets("Affiche")
sh2.Range("A5:O5").ClearContents 'astuce on efface avant la ligne A5 ==> O5 sur feuille affiche

rw2 = sh2.Cells(Rows.Count, 1).End(xlUp).Row + 1'le 1 represente la colonne A

sh2.Cells(rw2, "C").Value = sh1.Cells(Target.Row, "P")
sh2.Cells(rw2, "D").Value = sh1.Cells(Target.Row, "Q")
sh2.Cells(rw2, "E").Value = sh1.Cells(Target.Row, "R")
sh2.Cells(rw2, "F").Value = sh1.Cells(Target.Row, "S")
sh2.Cells(rw2, "G").Value = sh1.Cells(Target.Row, "T")
sh2.Cells(rw2, "H").Value = sh1.Cells(Target.Row, "U")
sh2.Cells(rw2, "I").Value = sh1.Cells(Target.Row, "V")
sh2.Cells(rw2, "J").Value = sh1.Cells(Target.Row, "W")
sh2.Cells(rw2, "K").Value = sh1.Cells(Target.Row, "X")
sh2.Cells(rw2, "L").Value = sh1.Cells(Target.Row, "Y")

sh2.Range("A4").Value = sh1.Cells(Target.Row, "C")
sh2.Range("F1").Value = sh1.Cells(Target.Row, "D")
sh2.Range("C3").Value = sh1.Cells(Target.Row, "E") 'Affiche le Type en C3 onglet Affiche = Valeur de la colonne E de l'"onglet Affiche"
sh2.Range("E3").Value = sh1.Cells(Target.Row, "F") 'Affiche le Kva en E3 onglet Affiche = Valeur de la colonne F de l'"onglet Affiche"

sh2.Range("C2:M2").WrapText = False 'Désactive le renvoie à la ligne automatique

Sheets("Affiche").Select

MsgBox "Copie de L'OF et du Projet sur Feuille Affiche" 'petit message de confirmation

End If

Edit modo : merci de mettre le code entre balises SVP avec le bouton </>

Dan · Accepted Answer

Lorsque vous postez un code, merci de bien vouloir utiliser les balises de code disponible dans le menu en cliquant sur l'icone &lt;/&gt; et en collant le code dans la fenêtre. Pas trop compris votre demande Crdlt...

Invité · Answer

Petit rappel de la charte, merci de mettre les codes déposés entre balises grâce au bouton La prochaine fois ce sera poubelle Je n'ai pas trop bien compris, mais ce devrait-être ceci rw2 = sh2.Cells(5, 1).End(xlUp).Row + 1 A+...