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 7140 Date d'inscription dimanche 8 avril 2007 Statut Modérateur Dernière intervention 25 mars 2024 - 20 août 2009 à 13:34

Bonjour,

Je souhaite incrémenter des cellule excel à partir de la saisie d'une chiffre.

Voilà un exemple : si je tape le chiffre 20, je voudrais que le cellules d'une même colonne (B par exemple), s'affichent de la façon suivante : 0 pour B1 1 pour B2; 2 pour B3 et ce jusqu'à 20 bien entendu. Pour cela je ne veux pas incrémenter de manière traditionnelle avec le curseur, mais avec du VBA.

Merci d'avance !!

F-RAGU

A voir également:

Vba incrementer une cellule
Aller à la ligne dans une cellule excel - Guide
Vba récupérer valeur cellule ✓ - Forum VB / VBA
Excel compter cellule couleur sans vba - Guide
Excel cellule couleur si condition texte - Guide
Verrouiller cellule excel - Guide

4 réponses

Réponse 1 / 4

pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 751
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

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 à 13:13

Merci pour ta réponse,

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

Réponse 2 / 4

pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 751
20 août 2009 à 13:15

Ouais. Peux tu nous joindre une copie de ton fichier ou un exemple de ce que tu veux exactement ici par exemple.

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 à 13:26

En 2 mots ça doit donner ceci :

Dans la feuille nommée "Saisie" , on me demande une longueur de poutre. Je demande 15m.

Une fois cette valeur rentrée, j'ai une incrémentation de cellule dans la feuille "Calculs"qui doit se faire a partir de la fonction que je voudrais programmer en VBA. Je voudrais un pas de 0,1m, pour des valeurs allant de 0m à 15m.
Exemple :

Longueur
0
0,1
0,2
.
.
.
15

Le principe est simple mais vu que je débute juste en VBA, ça me semble complexe !

F-RAGU.

Discussions similaires

extraire le dernier mot d'un texte

Autonomie d'une batterie 6 cellules

[EXCEL] Remplissage auto de cellules vides

ajustement automatique (cellulle fusionnée)

EXCEL - Savoir qui a modifié une cellule

[EXCEL] références dynamique vers feuilles ?