Function n_feuille_existe() As Boolean
Set feuille_base = ThisWorkbook.Worksheets("Feuille de soins")
Set feuille_copie = ThisWorkbook.Worksheets("Fiche client")
n_a_copier = feuille_base.Cells(3, 11)
n_feuille_existe = False
On Error GoTo sortie
ligne = feuille_copie.Columns("A:A").Find(What:=n_a_copier, After:=feuille_copie.Cells(1, 1), LookIn:=xlFormulas, _
LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Row
n_feuille_existe = True
sortie:
On Error GoTo 0
End Function
Sub fiche()
'
' fiche Macro
' Macro enregistrée le 18/07/2009 par POLAIN
if n_feuille_existe then
MsgBox "Données client déjà connue", vbInformation, "RIEN N'EST FAIT ..."
else
With Sheets("Fiche Client")
Ligne = .Range("A65536").End(xlUp).Row + 1
' Nouveau client = total + 1
.Cells(Ligne, 1) = Sheets("Feuille de soins").Range("K3")
.Cells(Ligne, 2) = Sheets("Feuille de soins").Range("K4")
.Cells(Ligne, 3) = Sheets("Feuille de soins").Range("D6")
.Cells(Ligne, 4) = Sheets("Feuille de soins").Range("H6")
.Cells(Ligne, 5) = Sheets("Feuille de soins").Range("B7")
.Cells(Ligne, 6) = Sheets("Feuille de soins").Range("D7")
.Cells(Ligne, 7) = Sheets("Feuille de soins").Range("G7")
.Cells(Ligne, 8) = Sheets("Feuille de soins").Range("B8")
.Cells(Ligne, 9) = Sheets("Feuille de soins").Range("G8")
.Cells(Ligne, 10) = Sheets("Feuille de soins").Range("E8")
.Cells(Ligne, 11) = Sheets("Feuille de soins").Range("J6")
.Cells(Ligne, 12) = Sheets("Feuille de soins").Range("L6")
.Cells(Ligne, 13) = Sheets("Feuille de soins").Range("C9")
.Cells(Ligne, 14) = Sheets("Feuille de soins").Range("J7")
End With
MsgBox "Données client ajoutées", vbInformation, "C'EST FAIT ..."
end if
End Sub