sebastien450
XLDnaute Occasionnel
Bonjour,
Je viens vers vous car mes faibles connaissances en VBA ne me permette pas de simplifier le code suivant:
Sub Macrocopier1000()
If Range("H15") = "5000" Then
Range("P13:Q13").Select
Selection.Copy
Sheets("1000m & reprises").Select
Range("B3").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End If
If Range("H15") = "5050" Then
Range("P13:Q13").Select
Selection.Copy
Sheets("1000m & reprises").Select
Range("B4").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End If
If Range("H15") = "510" Then
Range("P13:Q13").Select
Selection.Copy
Sheets("1000m & reprises").Select
Range("B5").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End If
End Sub
Il s'agit d'un simple copier coller de la valeur en P13:Q13 vers une cellule B3.
Et le tout s'incrémente,
pour H15=5000, je met en b3
Pour h15 = 5050 je met en b4 et ainsi de suite jusqu'a H15=7000!
Merci de votre aide
Je viens vers vous car mes faibles connaissances en VBA ne me permette pas de simplifier le code suivant:
Sub Macrocopier1000()
If Range("H15") = "5000" Then
Range("P13:Q13").Select
Selection.Copy
Sheets("1000m & reprises").Select
Range("B3").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End If
If Range("H15") = "5050" Then
Range("P13:Q13").Select
Selection.Copy
Sheets("1000m & reprises").Select
Range("B4").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End If
If Range("H15") = "510" Then
Range("P13:Q13").Select
Selection.Copy
Sheets("1000m & reprises").Select
Range("B5").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End If
End Sub
Il s'agit d'un simple copier coller de la valeur en P13:Q13 vers une cellule B3.
Et le tout s'incrémente,
pour H15=5000, je met en b3
Pour h15 = 5050 je met en b4 et ainsi de suite jusqu'a H15=7000!
Merci de votre aide