bonsoir à toutes et tous
J'ai une macro clic qui fonctionnait très bien avant que je lui apporte une fonction supplémentaire
ma macro à l'origine:
Private Sub recherchevinversé_Click()
ActiveSheet.Unprotect
Range("L38:BS38").Value = Range("L39:BS39").Value
With Sheets("source")
lig_nom = .Columns("A").Find([b1].Value, LookIn:=xlValues, lookat:=xlWhole).Row
If lig_nom > 0 Then Range("L38:BS38").Copy .Range("P" & lig_nom & ":BW" & lig_nom)
End With
Range("C6:N10").Select
Selection.ClearContents
Range("A1").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub
Ma macro modifiée
Private Sub recherchevinversé_Click()
ActiveSheet.Unprotect
Range("b10:l10").Value = Range("a9:k9").Value
With Sheets("source")
lig_nom = .Columns("A").Find([b1].Value, LookIn:=xlValues, lookat:=xlWhole).Row
If lig_nom > 0 Then Range("b10:l10").Copy .Range("b" & lig_nom & ":l" & lig_nom)
Range("A1").Select
End With
Sheets("saisie").Select
Range("b10:l10").Select
Selection.Copy
Sheets("commande").Select
Range("A500").End(xlUp).Offset(1, 0).Select---------> ça bloque ici
ActiveSheet.Paste
Sheets("saisie").Select
Selection.ClearContents
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub
que faut-il rajouter pour que ça marche
merci
phil69
J'ai une macro clic qui fonctionnait très bien avant que je lui apporte une fonction supplémentaire
ma macro à l'origine:
Private Sub recherchevinversé_Click()
ActiveSheet.Unprotect
Range("L38:BS38").Value = Range("L39:BS39").Value
With Sheets("source")
lig_nom = .Columns("A").Find([b1].Value, LookIn:=xlValues, lookat:=xlWhole).Row
If lig_nom > 0 Then Range("L38:BS38").Copy .Range("P" & lig_nom & ":BW" & lig_nom)
End With
Range("C6:N10").Select
Selection.ClearContents
Range("A1").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub
Ma macro modifiée
Private Sub recherchevinversé_Click()
ActiveSheet.Unprotect
Range("b10:l10").Value = Range("a9:k9").Value
With Sheets("source")
lig_nom = .Columns("A").Find([b1].Value, LookIn:=xlValues, lookat:=xlWhole).Row
If lig_nom > 0 Then Range("b10:l10").Copy .Range("b" & lig_nom & ":l" & lig_nom)
Range("A1").Select
End With
Sheets("saisie").Select
Range("b10:l10").Select
Selection.Copy
Sheets("commande").Select
Range("A500").End(xlUp).Offset(1, 0).Select---------> ça bloque ici
ActiveSheet.Paste
Sheets("saisie").Select
Selection.ClearContents
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub
que faut-il rajouter pour que ça marche
merci
phil69