Macro excel rechercher et remplacer une ligne

Bonjour,

A l'avenir, merci d'Ajouter le langage dans les balises de code pour avoir la coloration syntaxique .
Explications disponibles ici : https://codes-sources.commentcamarche.net/faq/11288-les-balises-de-code

Tu dis

mon code recherche une ligne sur une autre feuille

mais.. tu fais ta recherche sur ActiveSheet.. donc sur la feuille courante...

Au cas où, voici un exemple d'utilisation de find :
https://forums.commentcamarche.net/forum/affich-37621992-methode-find-dans-vba-recherche-de-donnees-sous-excel

Bonjour,

Merci de votre réponse et je vais remettre le code avec coloration et j'ai fait le trie....
Je ne comprends toujours ou est l'erreur.

Effectivement, j'utilise ActiveSheet pour utiliser la feuille courante mais ma macro travaille sur l'autre feuille......

Mais avec ce code, j'ai l'impression qu'il trouve la ligne et qu'il créé une nouvelle ligne en dessous de la ligne trouver!!! du coup cela efface la ligne du dessous alors que je ne veux pas....peux etre ca qui cloche?

Range("B" & Range("B" & Cells.Rows.Count).End(xlUp).Row + 1).Select

J'aurais besoin que le code recherche une ligne et si elle la trouve elle remplace cette ligne et si elle ne le trouve pas elle cree une nouvelle ligne mais sur la dernière ligne trouvé et pas sur la ligne juste dessous.

Merci pour votre aide, c 'est tres sympa

Sub Rectangle28_Cliquer()
On Error Resume Next
Dim shAct As Worksheet
Set shAct = ActiveSheet
Dim C As Range
Dim NomFeuil As String, NexistePas As Boolean, Caractere As String
Dim Code As String
Dim Objet As OLEObject
Dim X As String
Dim NextLine As Long
Dim WsDepart As Worksheet
Dim WsDestination As Worksheet

Application.DisplayAlerts = False
Application.ScreenUpdating = False

Set WsDestination = Sheets("SuiviClient")
Set WsDepart = ActiveSheet

NomOnglet = ActiveSheet.Range("G3").Value & ActiveSheet.Range("I3").Value   
nomcherche = NomOnglet 'Range("H1").Value 'Nom client

Sheets("SuiviClient").Activate


Set C = Columns("B:B").Find(What:=nomcherche, LookIn:=xlValues, LookAt:=xlPart)
If C Is Nothing Then
Range("B" & Range("B" & Cells.Rows.Count).End(xlUp).Row + 1).Select

        'MsgBox "on créé la ligne"
ActiveCell.Value = NomOnglet 'WsDepart.Range("H9").Value 'N°devis
ActiveCell.Offset(0, 1).Value = WsDepart.Range("d15") 'Date de l'évenement
ActiveCell.Offset(0, 2).Value = WsDepart.Range("H9") ' Nom client
ActiveCell.Offset(0, 3).Value = WsDepart.Range("E15") 'Lieu de l'évenement
ActiveCell.Offset(0, 4).Value = WsDepart.Range("B19") 'Type de prestation
ActiveCell.Offset(0, 5).Value = WsDepart.Range("G19") 'Nombre de personne
ActiveCell.Offset(0, 6).Value = WsDepart.Range("N1") 'acompte versé
ActiveCell.Offset(0, 7).Value = WsDepart.Range("Q1") 'Reglement restant à payer

Else

Range("B" & Range("B" & Cells.Rows.Count).End(xlUp).Row + 0).Select

ActiveCell.Value = NomOnglet 'WsDepart.Range("H9").Value 'N°devis
ActiveCell.Offset(0, 1).Value = WsDepart.Range("d15") 'Date de l'évenement
ActiveCell.Offset(0, 2).Value = WsDepart.Range("H9") ' Nom client
ActiveCell.Offset(0, 3).Value = WsDepart.Range("E15") 'Lieu de l'évenement
ActiveCell.Offset(0, 4).Value = WsDepart.Range("B19") 'Type de prestation
ActiveCell.Offset(0, 5).Value = WsDepart.Range("G19") 'Nombre de personne
ActiveCell.Offset(0, 6).Value = WsDepart.Range("N1") 'acompte versé
ActiveCell.Offset(0, 7).Value = WsDepart.Range("Q1") 'Reglement restant à payer

End If

    Set C = Nothing
'End With
Activer:
shAct.Select

Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub

EDIT :
Correction du LANGAGE dans les balises de code.
Les macro Excel.. c'est du BASIC ... pas du CSHARP

J'avance un peu lol

en fait comment dire à la ligne du code ci dessous de rechercher la dernière ligne libre?

Mais peut etre que le probleme ne vient pas de la? arfff

Merci pour votre réponse

Range("B" & Range("B" & Cells.Rows.Count).End(xlUp).Row + 1).Select

On reprend.. car je ne suis pas sûr que tu saches ce que font chaque ligne de code ( que tu dois certainement copier/coller sans savoir ce qu'elles font... )

Donc
Au départ tu indiques

Set WsDestination = Sheets("SuiviClient")
Set WsDepart = ActiveSheet

puis plus bas tu écris :

Sheets("SuiviClient").Activate

au passage, vu que tu as déclarer la variable WsDestination .. autant l'utiliser

WsDestination.Activate

Le problème est donc là......
Tu ACTIVES la feuille WsDestination ..... et vu son nom.. je suppose que c'est la feuille DANS LAQUELLE tu veux mettre les informations que tu cherches (je suppose dans la feuille WsDepart )

Et vu que tu fais ta recherches de la façon suivante

Set C = Columns("B:B").Find(What:=nomcherche, LookIn:=xlValues, LookAt:=xlPart)

Elle s'effectue dans la colonne B de la feuille ACTIVE.

Si tu veux chercher dans la feuille WsDepart il faut mettre

Set C = WsDepart.Columns("B:B").Find(What:=nomcherche, LookIn:=xlValues, LookAt:=xlPart)

Je t'invite également à éviter les instruction SELECT .. et d'utiliser directement les coordonnées des cellules.
Donc:

    LastRow = WsDestination.Cells(WsDestination.Rows.Count, "B").End(xlUp).Row + 1
   
   WsDestination.cells(LastRow ,2).Value = WsDepart.Range("d15").value  'Date de l'évenement

NB: Le langage pour les balises de code correspondant aux macros.. c'est le BASIC pas le CSHARP.

Merci beaucoup pour ton aide...

Pour répondre à ta question "Si tu veux chercher dans la feuille WsDepart il faut mettre"
Alors non c'est bien dans la feuille de destination que je veux rechercher donc j'ai remplacé par "WsDestination".

Mais le probleme persiste toujours.
Je crée une ligne et ca fonctionne
Je créé une seconde ligne ca fonctionne aussi

Je lance à nouveau le code avec le nom de la ligne deja existant et la problème ca me remplace la ligne juste en dessous de la ligne selectionnée.
En fait je voudrais que la ligne selectionnée soit remplacé.

Set C = WsDestination.Columns("B:B").Find(What:=nomcherche, LookIn:=xlValues, LookAt:=xlPart)
If C Is Nothing Then
LastRow = WsDestination.Cells(WsDestination.Rows.Count, "B").End(xlUp).Row + 1
WsDestination.Cells(LastRow, 2).Value = NomOnglet
WsDestination.Cells(LastRow, 3).Value = WsDepart.Range("d15").Value
'ActiveCell.Offset(0, 2).Value = WsDepart.Range("H9") ' Nom client
'ActiveCell.Offset(0, 3).Value = WsDepart.Range("E15") 'Lieu de l'évenement
'ActiveCell.Offset(0, 4).Value = WsDepart.Range("B19") 'Type de prestation
'ActiveCell.Offset(0, 5).Value = WsDepart.Range("G19") 'Nombre de personne
'ActiveCell.Offset(0, 6).Value = WsDepart.Range("N1") 'acompte versé
'ActiveCell.Offset(0, 7).Value = WsDepart.Range("Q1") 'Reglement restant à payer
'-------------------------------------------------------------------------------------------------------------------------
End If
Set C = WsDestination.Columns("B:B").Find(What:=nomcherche, LookIn:=xlValues, LookAt:=xlPart)
If C Is Nothing Then

 LastRow = WsDestination.Cells(WsDestination.Rows.Count, "B").End(xlUp).Row + 1
        '----MsgBox "on créé la ligne"

WsDestination.Cells(LastRow, 2).Value = NomOnglet
WsDestination.Cells(LastRow, 3).Value = WsDepart.Range("d15").Value
'ActiveCell.Offset(0, 2).Value = WsDepart.Range("H9") ' Nom client
'ActiveCell.Offset(0, 3).Value = WsDepart.Range("E15") 'Lieu de l'évenement
'ActiveCell.Offset(0, 4).Value = WsDepart.Range("B19") 'Type de prestation
'ActiveCell.Offset(0, 5).Value = WsDepart.Range("G19") 'Nombre de personne
'ActiveCell.Offset(0, 6).Value = WsDepart.Range("N1") 'acompte versé
'ActiveCell.Offset(0, 7).Value = WsDepart.Range("Q1") 'Reglement restant à payer

Else


 LastRow = WsDestination.Cells(WsDestination.Rows.Count, "B").End(xlUp).Row + 0
WsDestination.Cells(LastRow, 2).Value = NomOnglet
WsDestination.Cells(LastRow, 3).Value = WsDepart.Range("d15").Value
'ActiveCell.Offset(0, 2).Value = WsDepart.Range("H9") ' Nom client
'ActiveCell.Offset(0, 3).Value = WsDepart.Range("E15") 'Lieu de l'évenement
'ActiveCell.Offset(0, 4).Value = WsDepart.Range("B19") 'Type de prestation
'ActiveCell.Offset(0, 5).Value = WsDepart.Range("G19") 'Nombre de personne
'ActiveCell.Offset(0, 6).Value = WsDepart.Range("N1") 'acompte versé
'ActiveCell.Offset(0, 7).Value = WsDepart.Range("Q1") 'Reglement restant à payer


End If
    Set C = Nothing
'End With
Activer:
shAct.Select

en fait ce qui cloche ceux sont ces lignes de code :

Range("B" & Range("B" & Cells.Rows.Count).End(xlUp).Row + 1).Select

et

Range("B" & Range("B" & Cells.Rows.Count).End(xlUp).Row + 0).Select

Je crois que le plus simple serait que tu nous mettes un fichier à disposition
https://www.commentcamarche.net/faq/29493-utiliser-cjoint-pour-heberger-des-fichiers

Bonjour,

Voila mon fichier avec les explications dessus

https://www.cjoint.com/c/JCcfmLbTptT

Merci pour votre aide

Bonjour,

Merci beaucoup pour ton code. J'ai tester et le soucis persiste toujours...

Je lance la macro qui crée la ligne DEVIS 142 dans la feuille "SuiviClient" = Ok
Je lance la macro qui crée la ligne DEVIS 143 mais qui me supprime la ligne DEVIS 142.

De plus la macro crée les nouvelles lignes uniquement sur la ligne 86?????
Je ne vois pas pourquoi car dans le code il n'y a aucune instruction pour la ligne 86???

Deuxièmement, je ne vois pas d'instruction pour rechercher une ligne existante par exemple DEVIS 142 et remplacer la ligne par un nouveau DEVIS142...

Merci pour ton aide

Les nouvelles lignes se créent parfaitement.

J'ai bien la ligne DEVIS 142 (Ligne 3)et la ligne DEVIS 143 (Ligne 4)

Quand je veux modifier le DEVIS 142 par exemlpe sur ma feuille DEVIS 142 je change le prix, si je relance la macro, la modification ne se fait pas sur (Ligne3) de la feuille "SuiviClient"...
Je pense que ca doit etre une histoire de "...Row + 0"?

Ah Oui si ca fonctionne très bien...Milles excuses!!!!

Génial ca fonctionne!!!!

Merci pour ton aide tu es top!!!!