Enregistrement d'une cellule sur 2 feuilles
bonsoir le forum
j'utilise le code suivant
Sub enregistrer()
Set info = Union(Range("c8"), Range("g8"), Range("i8"), Range("c13"), Range("g13"), Range("c18"), Range("g18"), Range("c22"), Range("c26"), Range("g26"), Range("e31"))
np = Range("c8")
prénom = Range("g8")
ladate = Range("i8")
acte = Range("c13")
lieu = Range("g13")
npp = Range("c18")
npm = Range("g18")
epouse = Range("c22")
nppe = Range("c26")
npme = Range("g26")
obs = Range("e31")
With Sheets("base")
dlf = .Range("a" & Rows.Count).End(xlUp).Row + 1
.Range("a" & dlf) = np
.Range("b" & dlf) = prénom
.Range("c" & dlf) = ladate
.Range("d" & dlf) = acte
.Range("e" & dlf) = lieu
.Range("f" & dlf) = npp
.Range("g" & dlf) = npm
.Range("h" & dlf) = epouse
.Range("i" & dlf) = nppe
.Range("j" & dlf) = npme
.Range("k" & dlf) = obs
End With
If np = "" Or obs = "" Then
'Or ladate = "" Or lieu = "" Or npp = "" Or npm = "" Or obs = ""
MsgBox "Vous devez remplir le champ Non et Observation", vbCritical, "Attention"
Exit Sub
End If
MsgBox "Informations enregistrées", vbInformation, "Attention"
info.ClearContents
Range("C8").Select
End Sub
je voudrais y rajoutez
la cellule C8 de la feuille base(qui est déjà enregistrer sur la feuille base)
sur la feuille liste en colonne A en effacent les doublons de cette colonne
cordialement
aiglon74
encore moi
solution pour recopier le cellule c8 en feuille liste
Sub enregistrer()
Set info = Union(Range("c8"), Range("g8"), Range("i8"), Range("c13"), Range("g13"), Range("c18"), Range("g18"), Range("c22"), Range("c26"), Range("g26"), Range("e31"))
np = Range("c8")
prénom = Range("g8")
ladate = Range("i8")
acte = Range("c13")
lieu = Range("g13")
npp = Range("c18")
npm = Range("g18")
epouse = Range("c22")
nppe = Range("c26")
npme = Range("g26")
obs = Range("e31")
With Sheets("base")
dlf = .Range("a" & Rows.Count).End(xlUp).Row + 1
.Range("a" & dlf) = np
.Range("b" & dlf) = prénom
.Range("c" & dlf) = ladate
.Range("d" & dlf) = acte
.Range("e" & dlf) = lieu
.Range("f" & dlf) = npp
.Range("g" & dlf) = npm
.Range("h" & dlf) = epouse
.Range("i" & dlf) = nppe
.Range("j" & dlf) = npme
.Range("k" & dlf) = obs
End With
Set info = Union(Range("c8"), Range("g8"))
np = Range("c8")
prénom = Range("g8")
With Sheets("liste")
dlf = .Range("a" & Rows.Count).End(xlUp).Row + 1
.Range("a" & dlf) = np
.Range("b" & dlf) = prénom
End With
If np = "" Or obs = "" Then
'Or ladate = "" Or lieu = "" Or npp = "" Or npm = "" Or obs = ""
MsgBox "Vous devez remplir le champ Non et Observation", vbCritical, "Attention"
Exit Sub
End If
MsgBox "Informations enregistrées", vbInformation, "Attention"
info.ClearContents
Range("C8").Select
Range("C8,G8,I8,C13,G13,C18,G18,C22,C26,G26,E31").Select
Selection.ClearContents
End Sub
mais pour les doublons de la feuille liste en colonne A pas de solution pour les effacés
cordialement
aiglon74