Fredox
XLDnaute Occasionnel
Bonjour,
J'ai fait cette macro pour effacer le contenu de cellules, et insérer des formules (initialisation de formulaire).
J'ai une erreur sur la ligne suivante:
Range("E25").Value = "=SI(A25<>0;RECHERCHEV(A25;$A$70:$E$75;5;FAUX);0)"
Je ne comprend pas.
Quelqu'un a une idée ?
Merci
J'ai fait cette macro pour effacer le contenu de cellules, et insérer des formules (initialisation de formulaire).
J'ai une erreur sur la ligne suivante:
Range("E25").Value = "=SI(A25<>0;RECHERCHEV(A25;$A$70:$E$75;5;FAUX);0)"
Je ne comprend pas.
Quelqu'un a une idée ?
Code:
Sub Effacer
' Boutton Nouveau / Effacer
If MsgBox("Êtes vous sûr de vouloir effacer le document actuel ?", vbYesNo + vbQuestion, "Veuillez confirmer") = vbYes Then
' Date du jour
Range("O9").Value = "=TODAY()"
' Champs client
Range("I8").Value = "" ' Numéro de client
Range("D9").Value = "" ' Nom du client
Range("D10").Value = "" ' Adresse
Range("D11").Value = "" ' Code Postal
Range("F11").Value = "" ' Ville
Range("D12").Value = "" ' Interlocuteur
Range("E13").Value = "" ' Téléphone
Range("J13").Value = "" ' Fax
Range("D14").Value = "" ' Courriel
' Champs équipement
Range("Q11").Value = ""
Range("P12").Value = ""
Range("U12").Value = ""
Range("R13").Value = ""
Range("R14").Value = ""
Range("J16").Value = ""
Range("D17:D22").Value = ""
Range("A25:U65").Value = ""
Range("E25").Value = "=SI(A25<>0;RECHERCHEV(A25;$A$70:$E$75;5;FAUX);0)"
Range("E26").Value = "=SI(A26<>0;RECHERCHEV(A26;$A$70:$N$75;5;FAUX);0)"
Range("E27").Value = "=SI(A27<>0;RECHERCHEV(A27;$A$70:$N$75;5;FAUX);0)"
End If
End SubMerci