Mwadepaname
XLDnaute Junior
Bonjour le forum,
je suis sur un fichier de planification avec 2 onglets.
J'ai fait un bouton pour modifier le nombre de place disponible dans une réunion. (onglet neutraliser)
Mon code fonctionne si je met n'importe quel chiffre sauf 0 ou vide.
=============
Dim cel As Range, plage As Range
Set plage = Sheets("creneaux").Range("a1:a" & Sheets("creneaux").Range("A" & Rows.Count).End(xlUp).Row)
For Each cel In plage
If cel.Value = neutralise_creneau.Value Then cel.Offset(0, 3).Value = places.Value
Next cel
=============
0 que j'utilise pour annuler un créneau de réunion. (onglet créneaux)
Lorsque je met 0. Celui-ci écrase bien l'ancienne donnée mais écrase également la donnée de la ligne du dessous comme si j'avais mis offset(0,3) et offset(1,3).
Je ne comprends pas , si quelqu'un en connait la raison.
Mon code contient il une erreur ?
Merci
je suis sur un fichier de planification avec 2 onglets.
J'ai fait un bouton pour modifier le nombre de place disponible dans une réunion. (onglet neutraliser)
Mon code fonctionne si je met n'importe quel chiffre sauf 0 ou vide.
=============
Dim cel As Range, plage As Range
Set plage = Sheets("creneaux").Range("a1:a" & Sheets("creneaux").Range("A" & Rows.Count).End(xlUp).Row)
For Each cel In plage
If cel.Value = neutralise_creneau.Value Then cel.Offset(0, 3).Value = places.Value
Next cel
=============
0 que j'utilise pour annuler un créneau de réunion. (onglet créneaux)
Lorsque je met 0. Celui-ci écrase bien l'ancienne donnée mais écrase également la donnée de la ligne du dessous comme si j'avais mis offset(0,3) et offset(1,3).
Je ne comprends pas , si quelqu'un en connait la raison.
Mon code contient il une erreur ?
Merci