macro clic bloque

[phil69]

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

 

[Compte Supprimé 979]

Re : macro clic bloque

Re,

Bonjour phil69, dans ta 1ère procédure, je ne vois pas à quoi sert ton "Copy" !?

 

[phil69]

Re : macro clic bloque

Re

la macro clic me servait à mettre le fichier source à jour suite à une commande et j'ai essayé de prolonger celle ci pour quelle aliment ma feuille commande
merci
fichier joint pour mieux comprendre
phil69

 

[Si...]

Re : macro clic bloque

salut

à tester (pas ouvert ton fichier)

Private Sub recherchevinversé_Click()
  Dim R As Range
  Me.Unprotect
  [B10:L10] = [A9:K9].Value
  With Sheets("source")
    Set R = .[A:A].Find([B1], LookIn:=xlValues, lookat:=xlWhole)
    If R Is Nothing Then Exit Sub 'si la donnée recherchée n'existe pas,on  sort
    [B10:L10].Copy .Cells(R.Row, 2)
  End With
  [B10:L10].Copy Sheets("commande").Range("A500").End(xlUp)(2)
  [B10:L10] = ""
  [A1].Select
  Me.Protect
End Sub

 

[phil69]

Re : macro clic bloque

Bonjour à toutes et tous

Merci pour le code qui fonction à merveille, je vais encore abuser de vos connaissances avec une nouvelle demande.
Que rajouter au code pour que A1010 alimente l'onglet du mois en cours ( voir fichier joint)
Merci
phil69