Bonjour à tous,
Afin de compléter mon tableau, j'ai un petit soucis pour copier dans certains cas une valeur dans une cellule donnée !
Je m'explique:
Colonne "B"
B7 = 01S
B8 = 02D
B9 = 03 L ...
Si dans la cellule "B7" on trouve le caractère "S" ou le caractère "D" alors on recopie la cellule "F7" dans "K7", sinon la cellule "K7" reste vide.
J'ai écrit le code suivant:
Ca fonctionne pour le "S" mais si je rajoute un with... avec JourSaisie & "D", ça ne fonctione pas, j'ai un message d'erreur...
Merci pour votre aide,
Afin de compléter mon tableau, j'ai un petit soucis pour copier dans certains cas une valeur dans une cellule donnée !
Je m'explique:
Colonne "B"
B7 = 01S
B8 = 02D
B9 = 03 L ...
Si dans la cellule "B7" on trouve le caractère "S" ou le caractère "D" alors on recopie la cellule "F7" dans "K7", sinon la cellule "K7" reste vide.
J'ai écrit le code suivant:
Code:
With Cells.Find(What:=JourSaisie, After:=Range("B7"), LookIn:=xlValues, SearchOrder:=xlByColumns, SearchDirection:=xlNext)
.Activate
.Offset(, 1) = vType
.Offset(, 2) = Format(HDébutServ, "hh:mm")
.Offset(, 3) = Format(HFinServ, "hh:mm")
.Offset(, 4) = Format(NbHTrav, "hh:mm")
.Offset(, 5) = Format(HdeJour, "hh:mm")
.Offset(, 6) = Format(HTotalNuit, "hh:mm")
.Offset(, 8) = Format(HTotalNuit, "hh:mm")
End With
With Cells.Find(What:=JourSaisie & "S", After:=Range("B7"), LookIn:=xlValues, SearchOrder:=xlByColumns, SearchDirection:=xlNext)
.Activate
.Offset(, 9) = Format(NbHTrav, "hh:mm")
End With
Merci pour votre aide,
Dernière édition: