Regarder la valeur des cellules d'indices impaire.
J'aimerais traduire en VBA la commande suivante : " Si la valeur d'une cellule paire de la ligne selectionéé est plus petite que la valeur de sa voisine de droite alors valeur de la cellule de droite = valeur de la cellule de droite + 1"
Merci d'avance, je comptes sur vous !!
La solution que j'ai actuellement est celle ci : (mais vba ne trouve aucune prévision donc me renvoi "Cet Animateur n'avait prévu aucune Causerie" en permanance... ) HELP
*For ii = 2 To 24 Step 2
* Worksheets("planif CAUSERIES mrs").Range(result0, result0).Select
'On sélectione le nom de l'anim dans la table de prévision
*If Not IsEmpty(Cells(ActiveCell.Row, ii)) AndCells(ActiveCell.Row, ii).Offset(0, 1).Value < Cells(ActiveCell.Row, ii).Value Then
' une causerie était elle prévue pour cet animateur ?
* Cells(ActiveCell.Row, ii).Offset(0, 1).Value = Cells(ActiveCell.Row, ii).Offset(0, 1).Value + 1
'on valide que la causerie à eu lieu
* Else: MsgBox "Cet Animateur n'avait prévu aucune Causerie", vbExclamation: GoTo AskAnim
'Si rien n'était prévu on prévien qu'elle n'était pas prévu
* End If
*Next