fonction ds macro pour transferer cellule.

klorane · 23 Février 2008

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 · 23 Février 2008

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

Code:

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 · 23 Février 2008

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 · 23 Février 2008

Re : fonction ds macro pour transferer cellule.

Bonjour,
essaie :

Code:

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

klorane · 23 Février 2008

Re : fonction ds macro pour transferer cellule.

Merci BHBH c'est parfait.

Bonne journée.

Laurent

fonction ds macro pour transferer cellule.

klorane

XLDnaute Occasionnel

Dull

XLDnaute Barbatruc

klorane

XLDnaute Occasionnel

Cousinhub

XLDnaute Barbatruc

klorane

XLDnaute Occasionnel

Discussions similaires

fonction ds macro pour transferer cellule.

klorane

XLDnaute Occasionnel

Dull

XLDnaute Barbatruc

klorane

XLDnaute Occasionnel

Cousinhub

XLDnaute Barbatruc

klorane

XLDnaute Occasionnel

Discussions similaires

Privacy & Transparency

Privacy & Transparency