Incrémentation de cellules Excel avec VBA
Fermé
F-RAGU
Messages postés
19
Date d'inscription
lundi 28 juillet 2008
Statut
Membre
Dernière intervention
4 octobre 2009
-
20 août 2009 à 10:20
aquarelle Messages postés 7141 Date d'inscription dimanche 8 avril 2007 Statut Modérateur Dernière intervention 19 décembre 2024 - 20 août 2009 à 13:34
aquarelle Messages postés 7141 Date d'inscription dimanche 8 avril 2007 Statut Modérateur Dernière intervention 19 décembre 2024 - 20 août 2009 à 13:34
A voir également:
- Vba incrementer une cellule
- Aller à la ligne dans une cellule excel - Guide
- Excel cellule couleur si condition texte - Guide
- Excel compter cellule couleur sans vba - Guide
- L'indice n'appartient pas à la sélection vba - Forum VB / VBA
- Verrouiller une cellule excel - Guide
4 réponses
pijaku
Messages postés
12263
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
4 janvier 2024
2 752
20 août 2009 à 10:37
20 août 2009 à 10:37
Salut,
Il y a certainement mieux comme solution... Voici ce que j'ai fait : [il faut saisir un chiffre en A1 et le résultat est visible colonne B] Bien sur cela plante si tu écris "a" en A1...
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim i As Integer, j As Integer
i = [A1]
If i = "0" Then
Columns("B:B").ClearContents
Exit Sub
Else
Columns("B:B").ClearContents
For j = 1 To i
Range("B" & j) = j
Next
End If
End Sub
Il y a certainement mieux comme solution... Voici ce que j'ai fait : [il faut saisir un chiffre en A1 et le résultat est visible colonne B] Bien sur cela plante si tu écris "a" en A1...
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim i As Integer, j As Integer
i = [A1]
If i = "0" Then
Columns("B:B").ClearContents
Exit Sub
Else
Columns("B:B").ClearContents
For j = 1 To i
Range("B" & j) = j
Next
End If
End Sub
20 août 2009 à 13:13
ce que je souhaiterais en fait (dsl de pas l'avoir précisé), c'est d'élaborer non pas une procédure mais une fonction qui renvoie les incrémentations dans la feuille "Calculs", une fois la valeur saisie dans la feuille "Saisie".
Voilà !
F-RAGU