Discussion :

[ramsesthebest]

bonjour la communauté,
comment peut on faire pour appliquer une formule à une plage de cellules excel? par exemple je veux mettre dans la plage (b2:b50) la formule suivante qui consiste à ajouter 1 à toutes les cellules (A2:A50)
c-a-d: b2=a2+1 b3=a3+1

merci d'avance à tous ceux qui prendront le temps de me lire.

[ramsesthebest]

ok merci c'est vraiment tout simple mais comment puis récupérer la feuille excel dans visual basic?

[SfJ5Rpw8]

bonjour la communauté,
comment peut on faire pour appliquer une formule à une plage de cellules excel? par exemple je veux mettre dans la plage (b2:b50) la formule suivante qui consiste à ajouter 1 à toutes les cellules (A2:A50)
c-a-d: b2=a2+1 b3=a3+1

merci d'avance à tous ceux qui prendront le temps de me lire.

Je comprendss pas ...
- tu ve le faire par programmation VBA ...?
- tu ve que les cellues B2:B50 contienne résulat de la somme à un moment donné ou la formule du style A2+1...

sans programmation :
tu ecris la formule =A2+1 dans cellule B2 ... puis tu étire la cellule B2 , jusqu'en B50 ... ce qui as pour effet de recopier vers le bas...

[ramsesthebest]

je veux le faire par programmation,
en fait dans le programme il faut pouvoir récupérer le classeur dans lequel se trouve la feuille.
il faudra que le programme puisse incrémenter les valeurs de la colone A et les stocker dans la colone B.
et ce par programmation.

[ramsesthebest]

en fait je voulais le faire sous VB mais je pense que VBA est plus approprié.
en fait je dois écrire du code pour vérifier que les nombres d'une plage de cellules sont tous multiples de 60 sinon il faut ajouter le nombre qu'il faut pour qu'il soit multiple et pour ne pas écraser les anciennes valeurs il faut insérer les nouvelles dans une autre plage de cellules.

[SfJ5Rpw8]

tien un peu de code ... à adapter peu-être...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Sub test()
 Dim r As Range 'Range source à tester
 Dim c  As Range 'Cellule du range source
 Dim i As Integer ' Valeur temporaire de calcul
 Set r = Range("A2:A50")
 
 For Each c In r
  i = c.Value
   While i Mod 60 <> 0
     i = i + 1
   Wend
  c.Offset(0, 1).Value = i 'Affecte valeur à cellule a coté ..
 
 Next
 
End Sub