fonction ds macro pour transferer cellule.

[klorane]

Bonsoir à tous,

j'aimerai utiliser une macro qui me permette de copier une valeur d'une cellule si une est pointée par un 1.

exemple copier si BK4=1 alors BL4=BH4

Exemple :

valeur dans BH3 :11
Valeur dans BH4 :20
Valeur dans BH5 :6
Valeur dans BH6 : 28 .......

Valeur

BK3=0 donc pas de copie de BH3 dans BL3 -> BL3=0
BK4=1 donc copie de BH4 dans BL4 -> BL4=20
BK5=1 donc copie de BH5 dans BL5 -> BL5=6
BK6=0 donc pas de copie de BH6 dans BL6 -> BL6=0.....etc


Je pensais utiliser cette fonction là:

For Each Cellules In Range("BK3:BK89")
If Cellules.Value = 1 Then....

par contre je sais pas quoi mettre après

quelqu'un aurait il la solution?

Merci pour votre aide.

Laurent

 

[Dull]

Re : fonction ds macro pour transferer cellule.

Salut klorane, le Forum

Un essai de réponse si j'ai bien compris
dans le module de la Feuille

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Cellule As Range
For Each Cellule In ActiveSheet.Range("BK3:BK89")
    If Cellule.Value = 0 Then Cellule.Offset(0, 1).Value = 0
    If Cellule.Value <> 0 Or Cellule.Value = "" Then Cellule.Offset(0, 1).Value = Cellule.Offset(0, -3).Value
    Next Cellule
End Sub

End Sub

Bonne Journée

 

[klorane]

Re : fonction ds macro pour transferer cellule.

Bonjour Dull et merci pour ta réponse.

J'ai essayé tes lignes de code.

Le petit soucis que j'ai c'est que dès qu'il rencontre un 1 toutes les cellules suivantes sont copiées.

En gros c'est comment simplifier les lignes de macros suivantes : (Pour le moment j'utilise ça pour me dépanner mais bien trop lourd car ça fait 86 lignes)


If Range("BK3").Value = 1 Then Range("BL3").Value = Range("BH3").Value
If Range("BK4").Value = 1 Then Range("BL4").Value = Range("BH4").Value
If Range("BK5").Value = 1 Then Range("BL5").Value = Range("BH5").Value
If Range("BK6").Value = 1 Then Range("BL6").Value = Range("BH6").Value
If Range("BK7").Value = 1 Then Range("BL7").Value = Range("BH7").Value
If Range("BK8").Value = 1 Then Range("BL8").Value = Range("BH8").Value
If Range("BK9").Value = 1 Then Range("BL9").Value = Range("BH9").Value
If Range("BK10").Value = 1 Then Range("BL10").Value = Range("BH10").Value
If Range("BK11").Value = 1 Then Range("BL11").Value = Range("BH11").Value
If Range("BK12").Value = 1 Then Range("BL12").Value = Range("BH12").Value
If Range("BK13").Value = 1 Then Range("BL13").Value = Range("BH13").Value
If Range("BK14").Value = 1 Then Range("BL14").Value = Range("BH14").Value
If Range("BK15").Value = 1 Then Range("BL15").Value = Range("BH15").Value
If Range("BK16").Value = 1 Then Range("BL16").Value = Range("BH16").Value
..... etc jusqu'à BK89.....

Bonne journée au forum!

Laurent

 

[Cousinhub]

Re : fonction ds macro pour transferer cellule.

Bonjour,
essaie :

For i = 3 To 89
    If Cells(i, 63) = 1 Then Cells(i, 64).Value = Cells(i, 60).Value
Next i

 

[klorane]

Re : fonction ds macro pour transferer cellule.

Merci BHBH c'est parfait.

Bonne journée.

Laurent