• saisi obligatoire d'une cellule

  Forum

  19/09/2007 - Private Sub Worksheet_Change(ByVal Target As Range) If (Me.Cells(1, 1).Value "") Then If ((ActiveSheet.Cells(1, 1).Value = "EXCE") Or (ActiveSheet.Cells(1, 1).Value = "AZER") Or...

• Tableau et boucle en VBA Excel

  Forum

  05/11/2009 - A65356").End(xlUp).Row + 1 '*écrit le résultat du tableau[i,j] dans la ligne vide ActiveSheet.Cells(nli, i, j) = VarTab(i, j) Next j End If Next i...