Sub ou fonction non definie

Bonjour

Retour de vacances et ma VBA bugue. Impossible de savoir pourquoi, pouvez vous m'aidez ?

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

If Not Application.Intersect(Target, Range("BA2:BA70 ")) Is Nothing Then

   With Target

      With .Font

         .Name = "Wingdings"
         .Size = 10
         .Bold = True

      End With

   .Value = IIf(.Value = "", "ü", "")

   End With

   Dim DerL As Integer
   Dim shA As Worksheet
   Set shA = Sheets("Archives")
   DerL = shA.Range("BA" & Rows.Count).End(xlUp).Row + 1

   With Worksheets("Effectif")

        .Range(.Cells(Target.Row, "A"), .Cells(Target.Row, "BA")).Copy shA.Range("A" & DerL)
        shA.Range("BB" & DerL) = InputBox("A quelle date est parti le jeune ?" & Chr(10) & "Veuillez saisir la date au format JJ/MM/AAAA", "Date de départ")
        shA.Range("BC" & DerL) = InputBox("Dans quelle ville est parti le jeune ?" & Chr(10) & "Veuillez saisir le lieu", "Ville")
        shA.Range("BD" & DerL) = InputBox("Avec quel partenaire est parti le jeune ?" & Chr(10) & "Veuillez saisir le partenaire", "ADMA, CAPS, CHRS, FJT, SAS, SHAMNA, autre ?")
        shA.Range("BE" & DerL) = Application.Max(Row("BE")) + 1

        .Rows(Target.Row).Delete

    End With

Cancel = True

 End If

End Sub

Bonjour

Retour de vacances et ma VBA bugue.

Cela buguait déjà avant le retour de vacances...

cette ligne -->

Application.Max(Row("BE"))

row(BE) n'existe pas... pas de ligne s'appelant BE. les lignes sont des numéros
Si utilisation de Row, vous devez aussi mettre un S après Row --> Rows

Cordialement

Merci de ta réponse, donc se serait ceci pour une colonne ?

        shA.Range("BE" & DerL) = Application.Max(Columns("BE")) + 1

Merci de ta réponse, donc se serait ceci pour une colonne ?

Oui cela à l'air correct

Faudrait comprendre ce que vous cherchez à faire

Edit : au fait pourquoi ouvrez vous un nouveau fil sur le sujet ?? --> https://forum.excel-pratique.com/excel/agrementer-lors-du-deplacement-165616. c'est la suite non ?

Merci de cloturer l'autre ou rester sur celui-ci mais en y faisant référence dans l'autre fil par exemple

Pas mal.. fil cloturé sans commentaires

Autant se remercier soi même.

Merci Dan

Désolé de cet impair, merci de ton aide