Incrementation multiplication

[Aladin]

Bonjour le forum
J' ai commencé une macro afin qu 'elle puisse incréménté une plage de céllule par la mutiplication des céllules numériques
Plage A15:B Les cellules sont de la forme suivante
A15 = 2,1
A16 = 100TR
1) Appliquer la multiplication sur les céllules numériques de la plage en ignorant les céllules non numériques jusqu ' la premiere ligne vide rencontré
Ma maSub multiplication()
Dim Cellule As Range
Dim x As Integer
x = 150
Range("A15:B65536").Select
For Each Cellule In Selection
Cellule.Value = Cellule.Value * x
Next
End Sub
Je bloque desssus, Merci pour toute aide
Aladin

 

[Cousinhub]

Re : Incrementation multiplication

Bonjour, une autre façon :

Sub multi()
Dim x As Integer
x = 150
[C15] = x ' ou une autre cellule vide
[C15].Copy ' la même cellule
Range("A15:B" & [B65000].End(xlUp).Row).PasteSpecial Paste:=xlPasteValues, Operation:=xlMultiply
[C15] = "" ' la cellule que tu as définie auparavant
End Sub

 

[Aladin]

Re : Incrementation multiplication

Bonjour bhbh et le forum
Merci pour ta macro mais il ne me donne pas les bonnes réponses.
le résultat est faux
C' est chaque céllule de la plage qui doit etre multiplié par 150
en ignorant les céllules non numériques
En mettant x = 150 (je l'ai passé en variable)
Aladin

 

[Cousinhub]

Re : Incrementation multiplication

Bonjour, tu m'étonnes!!!
Fais l'essai sous Excel : copies 150 dans une cellule vide, copies la cellule.
Sélectionne ta zone et fais collage spécial, valeurs, et choisis multiplication.
Chez moi, seules les données numériques sont multipliées

 

[Aladin]

Re : Incrementation multiplication

Bonjour bhbh et le forum
J' ai fait le test et c' est bon pour certaines cellules. Je pense que cela doit provenir d' un mauvais format sur les autres cellules, je vais corriger cela.
Mais dit moi pourquoi mettre le multiplicateur 150 dans dans une céllule, ce que je ne veux pa, mais plutot le passer dans une variable dans une macro.
Aladin

 

[Cousinhub]

Re : Incrementation multiplication

Re-, ce n'est pas grave, on l'efface après. Faire un collage spécial /multiplication avec une variable, je ne pense pas que ce soit faisable

 

[bqtr]

Re : Incrementation multiplication

Bonjour Aladin, bhbh

Un autre exemple en passant par un tableau:

Sub Multiplication()
Dim i As Long, j As Integer
Dim tablo
tablo = Sheets("Feuil3").Range("A15:B" & Sheets("Feuil3").Range("B65536").End(xlUp).Row)
For i = 1 To UBound(tablo, 1)
  For j = 1 To UBound(tablo, 2)
    If IsNumeric(tablo(i, j)) Then tablo(i, j) = tablo(i, j) * 150
  Next j
Next i
Sheets("Feuil3").Range("A15:B" & Sheets("Feuil3").Range("B65536").End(xlUp).Row) = tablo
End Sub

bonne après midi

 

[Aladin]

Re : Incrementation multiplication

Bonjour bqtr, bhbh et le forum
Effectivement la solution de bqtr évite de mettre le multiplicateur dans une cellule. les deux solutions fonctionne
j' adapterai une à mon classeur.
Merci à vous deux pour les solutions qui me permettronts d' avancer sur mon programme.
Aladin