A voir également:
- Erreur de compilation : constante requise
- Erreur 0x80070643 - Accueil - Windows
- Erreur 0x80070643 Windows 10 : comment résoudre le problème de la mise à jour KB5001716 - Accueil - Windows
- Erreur 4201 france tv ✓ - Forum Réseaux sociaux
- J'aime par erreur facebook notification - Forum Facebook
- Java code erreur 1603 ✓ - Forum Windows
2 réponses
Bonjour,
Sub Macro4() Dim dimen As Integer Dim tableau() As String Sheets(3).Select dimen = 10 ReDim tableau(dimen) For i = 0 To (dimen - 1) Cells(i + 1, 2) = i tableau(i) = compteur compteur = compteur + 1 Cells(i + 1, 1) = tableau(i) Next End Sub