A voir également:
- Demande explication variable tableau en VBA
- Tableau croisé dynamique - Guide
- Tableau ascii - Guide
- Tableau word - Guide
- Le nom du champ de tableau croisé dynamique n'est pas valide ✓ - Forum Excel
2 réponses
Sub Température()
Dim Tabtemp() As Single
Nb = InputBox("Combien y-a-t-il de mesures ?")
ReDim Tabtemp(Nb)
For Compteur = 1 To Nb
Tabtemp(Compteur) = InputBox("température N° " & Compteur)
Next Compteur
For i = 1 To UBound(Tabtemp)
Cells(i, 1) = "Température N°" & i
Cells(i, 2) = Tabtemp(i)
Next i
End Sub
Dim Tabtemp() As Single
Nb = InputBox("Combien y-a-t-il de mesures ?")
ReDim Tabtemp(Nb)
For Compteur = 1 To Nb
Tabtemp(Compteur) = InputBox("température N° " & Compteur)
Next Compteur
For i = 1 To UBound(Tabtemp)
Cells(i, 1) = "Température N°" & i
Cells(i, 2) = Tabtemp(i)
Next i
End Sub