Re : Aide svp : rechercher copier coller une cellule
Re bonjour
Je désire faire évoluer cette macro (merci Skoobi
) pour pouvoir l'utiliser dans un fichier partagé.
Aujourd'hui quand je partage le fichier un seul poste peut copier la cellule sur la dernière feuille. Si une deuxième personne veut également copier la cellule il y a conflit. En fait il faudrait utiliser une commande pour rafraichir la dernière feuille ou la classeur en entier.
voici la formule:
Private Sub CommandButton1_Click()
Dim cellule As Range, trouve As Range, suite As Range
Set cellule = Range("B28") 'valeur à chercher
With Sheets("codes_créés")
Set suite = .Range("A1").End(xlDown).Offset(1, 0) 'identifie la prochaine cellule vide
Set trouve = .Columns("A").Find(cellule.Value, LookIn:=xlFormulas, lookat:=xlWhole) 'cherche B4 en colonne A
If trouve Is Nothing Then 'si pas trouvé
suite.Value = cellule.Value
Else: MsgBox "Attention, code existant!", vbInformation
Exit Sub
End If
ActiveWorkbook.Save
Range("B28").Copy
End With
End Sub
Merci
Nak