Microsoft 365 VBA Compléter une ligne par rapport à une référence

Bonjour
Tu n'utilises pas des 1/4 de ligne donc ligne as long mais pas double
Un fichier excel c'est beaucoup mieux
sinon la macro entre les </>
mais un pdf... on peut même pas faire un copier/ coller
Salut

fanfan38 à dit:

Bonjour
Tu n'utilises pas des 1/4 de ligne donc ligne as long mais pas double
Un fichier excel c'est beaucoup mieux
sinon la macro entre les </>
mais un pdf... on peut même pas faire un copier/ coller
Salut

Cliquez pour agrandir...

Je vous remercie pour votre retour, je ne peux pas vous transférer le fichier car celui ci est beaucoup trop volumineux. Je vous joints un classeur où j'ai copié les trois onglets en question mais il n'y a donc aucune trace des macros dans le VBA.

Je vous copie colle aussi la macro ci-dessous :

Sub Complement_reguliere()
'
' Oter la protection sur les feuilles
'
ActiveWorkbook.Sheets("Historique des interventions").Unprotect ("admin")
ActiveWorkbook.Sheets("Traitement des demandes").Unprotect ("admin")
ActiveWorkbook.Sheets("Archive des demandes").Unprotect ("admin")
'
' Déclaration des variables
'
Dim ref As String, date_effective As Date, duree As String, remarques As String
Dim ligne As Double, check As Double
ligne = 3
'
' Récupérer les informations saisies
'
ActiveWorkbook.Sheets("Traitement des demandes").Activate
ref = Range("A9")
date_effective = Range("A12")
duree = Range("A15")
remarques = Range("A18")
'
' Compléter le compte rendu sur l'historique des interventions
'
ActiveWorkbook.Sheets("Historique des interventions").Activate

While Not Range("C" & ligne).Value Like ref
ligne = ligne + 1
Wend
check = ligne

Range("B" & check).Value = date_effective
Range("M" & check) = duree
Range("N" & check) = remarques
Range("T" & check) = "V"
'
' Récupérer les informations saisies
'
ActiveWorkbook.Sheets("Traitement des demandes").Activate
ref = Range("A9")
date_effective = Range("A12")
duree = Range("A15")
remarques = Range("A18")
'
' Compléter le compte rendu sur l'historique des demandes
'
ActiveWorkbook.Sheets("Archive des demandes").Activate

While Not Range("B" & ligne).Value Like ref
ligne = ligne + 1
Wend
check = ligne

Range("L" & check).Value = date_effective
Range("R" & check) = "Validé"
Range("S" & check) = remarques
'
' Protection
'
ActiveWorkbook.Sheets("Historique des interventions").Protect ("admin")
ActiveWorkbook.Sheets("Traitement des demandes").Protect ("admin")
ActiveWorkbook.Sheets("Archive des demandes").Protect ("admin")

End Sub