Incrémentation de cellules Résolu/Fermé

Question

Bonjour,

Je réalise un petit programme où je dois entrer une longueur donnée sur une feuille nommé "Saisie". Sur une autre feuille nommée "Calculs", je voudrais que cette longueur soit décomposée  afin de pouvoir calculer des paramètres tous les 10 cm.

Voici un exemple parlant : 

Sur la cellule A1 de la feuille "'Saisie", je rentre lz longueur désirée : ici 15m

Sur la feuille "Calculs", le programme doit automatiquement remplir les cellules de la colonne B, de 0 à 15m, tous les 0,1m soit : 

 0
0,1
0,2
.
.
.
15


Le principe est simple mais je ne vois pas trop comment programmer le tout. Si vous pouviez me filer quelques tuyaux ça serait sympa !!

Merci

F-RAGU.

F-RAGU · Answer

Pour info j'utilise Excel ^^

melanie1324 · Answer

Bonjour,

Dans vba, mets ce code :

sub longueur
dim i,j,a as string
i=1
j=1
longueur = cells(i,j) 'ta variable longueur sera égale à la longueur entrée
cells(i+1,j+1) = 0

for a= 0 to longueur
cells(i+2,j+1) = a+0,1
i=i+1
next a

end sub 

pour le mettre dans vba : outils macro vba ou visual basic editor
si tu n'as pas de module, insertion module et tu copies et colle le code donné.
Pour l'activer, tu peux associer la macro à un bouton. ou dans outils macro et tu choisis la macro à éxécuter.

pijaku · Answer

Une autre méthode que celle (très bien d'ailleurs) de melanie1234 :
Copier ce code, le coller dans un module (ALT + F11 , Insertion/Module)

Sub increment()
Dim i As Integer, j As Integer, k As Integer
i = Sheets("Saisie").Range("C47").Value
With Sheets("Calculs")
.Columns("C:C").ClearContents
For j = 2 To 10 * i
.Range("C" & j).Value = (j / 10) - 0.1
Next
.Range("C1").Value = 0
.Range("C65536").End(xlUp).Offset(1, 0).Value = i
End With
End Sub

Fermer la fenêtre Microsoft Visual Basic.

Pour que cela se fasse automatiquement, il faut appeler cette fonction par :
1- un bouton (boîte à outils controles/bouton de commande)
2- ALT + F8 cliquer sur increment et Exécuter
3- Clic droit sur l'onglet de la feuille saisie/visualiser le code et coller ces 3 lignes :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Call increment
End Sub

michel_m · Answer

bonjour
a adapter (C47 au lieu de A1 et C au lieu de B
attention l'incrément 0,1 ou autre doit être noté 0.1

Sub morceller(longueur As Byte, col As String, inc As Single)
lig = 1
Columns(col & ":" & col).ClearContents
For cptr = 0 To longueur Step inc
Sheets("calcul").Range(col & lig) = Application.Round(cptr, 1)
lig = lig + 1
Next
End Sub

Sub test()
Application.ScreenUpdating = False
morceller Sheets("saisie").Range("A1"), "B", 0.1
End Sub

pijaku · Answer

oui comme je te l'ai expliqué par avant :

3- Clic droit sur l'onglet de la feuille saisie/visualiser le code et coller ces 3 lignes :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Call increment
End Sub 

ps : tu peux sans crainte utiliser la fonction de michel_m ce gars là est trop fort.... ;-)

F-RAGU · Answer

Cela fonctionne ! Merci à tous pour vos contributions


F-RAGU

Incrémentation de cellules

6 réponses

Discussions similaires