Aide svp : rechercher copier coller une cellule

[nak]

Bonjour

j' essais d'intégrer un bouton avec la fonction suivante:
- Je veux comparer ma cellule B4 (Feuil1) à la colonne A (Feuil2)
- Si cette valeur est présente dans la feuille 2 je veux un msgbox "attention" et valider pour terminer la macro.
- Par contre si la valeur n'est pas présente alors je copie B4 (Feuil1) et je l'ajoute à ma colonne A (Feuil2)

Aujourd'hui je coince sur le début de la formule, je ne sais pas comment faire la recherche.
De plus j'ai un problème sur ma formule de copie :

Private Sub CommandButton1_Click()
Range("B4").Copy
ActiveSheet.Paste Destination:=Worksheets("Feuil2").Range("A65000").End(xlUp)
End Sub

Je demande bien de coller ma valeur sur la dernière cellule mais quand je répète l'opération une deuxième fois ma valeur est toujours coller dans la même cellule. En fait ça remplace ma dernière cellule...

Merci d'avance
Nak

 

[nak]

Re : Aide svp : rechercher copier coller une cellule

Je viens de trouver la solution pour copier ma cellule dans la premiere cellule libre

Private Sub CommandButton1_Click()
Sheets("Feuil2").Range("A65536").End(xlUp).Offset(1, 0) = Sheets("Feuil1").Range("A1").Value
Range("A1").Copy
End Sub

Il me reste juste à faire ma recherche avant

 

[skoobi]

Re : Aide svp : rechercher copier coller une cellule

Bonsoir,

je te propose ce code:

Private Sub CommandButton1_Click()

Dim cellule As Range, trouve As Range, suite As Range

Set cellule = Range("B4") 'valeur à chercher
With Sheets("Feuil2")
    Set suite = .Range("A1").End(xlDown).Offset(1, 0) 'identifie la prochaine cellule vide
    Set trouve = .Columns("A").Find(cellule.Value, LookIn:=xlValues, lookat:=xlWhole) 'cherche B4 en colonne A
    If trouve Is Nothing Then 'si pas trouvé
        cellule.Copy suite
    Else: MsgBox "Attention, valeur présente!", vbInformation
          Exit Sub
    End If
End With
    
End Sub

 

[nak]

Re : Aide svp : rechercher copier coller une cellule

Merci pour ta réponse très rapide

Ta formule fonctionne très bien avec des nombres par contre ma cellule B4 ressemble plutôt à ça :
=CONCATENER(Feuil2!B34;"-";C5;"-";Feuil2!D34;Feuil2!E34;"-";Feuil2!G34;"X";Feuil2!I34;Feuil2!J34;Feuil2!F34)

Y a t-il une solution pour quelle fonctionne en mode texte ?

Merci
Nak

 

[skoobi]

Re : Aide svp : rechercher copier coller une cellule

essaye en faisant cette modification:

Set trouve = .Columns("A").Find(cellule.Value, LookIn:=xlFormulas ...............

Pour info, "Find" correspond à la recherche d'excel (Edition - Rechercher).

 

[nak]

Re : Aide svp : rechercher copier coller une cellule

Désolé de te déranger à nouveau mais cette formule ne fonctionne pas.
J'ai essayé de reporter ma cellule avec =TEXTE mais c'est toujours pareil voir pire.
Je joins le fichier si tu as le temps de donner un oeil, je fais copier la cellule B28 sur la feuille 3.

Merci beaucoup pour ton aide.

 

[skoobi]

Re : Aide svp : rechercher copier coller une cellule

Dans la feuille 3 il n'y a que des "#REF".
Peux-tu rectifier STP?

 

[nak]

Re : Aide svp : rechercher copier coller une cellule

Bonjour

Oui dans la feuille 3 il n'y a que des "#REF", c'est ce qu'il se produit quand la macro colle la cellule B28 avec la fonction =CONCATENER.

J'ai modifié le fichier, la macro fonctionne pour la partie recherche. Elle me dit bien que mon texte est existant.
Maintenant quand elle ne trouve pas la même valeur elle colle un "#REF" en gardant la mise en forme de la cellule B28

Merci
Nak

 

[skoobi]

Re : Aide svp : rechercher copier coller une cellule

Re bonjour,

voici la modification à apporter:

..............
If trouve Is Nothing Then 'si pas trouvé
[COLOR=Blue][B]        suite.Value = cellule.Value[/B][/COLOR]
    Else: MsgBox "Attention, code existant!", vbInformation
          Exit Sub
    End If
.............

 

[nak]

Re : Aide svp : rechercher copier coller une cellule

Merci beaucoup Skoobi

La macro fonctionne parfaitement !

@+
Nak

 

[nak]

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

 

[skoobi]

Re : Aide svp : rechercher copier coller une cellule

Bonsoir,

Je désire faire évoluer cette macro (merci Skoobi ) pour pouvoir l'utiliser dans un fichier partagé.

Je passe la main car le partage de fichier ce n'est pas ma tasse de thé.

 

[nak]

Re : Aide svp : rechercher copier coller une cellule

Bon je viens de parcourir le forum et il me semble que cela est impossible

Pour contourner le problème serait-il possible de copier cette fameuse cellule dans un fichier texte ou csv ?

 

[skoobi]

Re : Aide svp : rechercher copier coller une cellule

Bonjour,

essaye en passant par l'enregistreur de macro.