Modif Code pour empêcher écrasement de données

Question

J'ai une macro qui balaye la colonne AF d'un classeur2 et me renvoie les données sur la feuille 1, colonne A d'un classeur1. Le problème c'est que j'aimerais aussi écrire manuellement dans cette colonne A de mon classeur1 sans que la macro ne vienne toute écraser et remplacer mes données par les valeurs récupérées dans mon classseur2. Que modifier dans le code suivant ? Sub MAJData() Dim wb As Workbook Dim ws As Worksheet Dim Ligne, Ligne2 As Integer Set wb = Workbooks.Open("C:\users
omdufichier.xlsm") Set ws = wb.Sheets("data") Ligne = 14 Ligne2 = 3 For Ligne2= 3 To ws.Cells(ws.Rows.Count, 5).End(xlUp).Row If ws.Range("AF" &amp; Ligne2) &lt;&gt; "" Then Feuil1.Range("A" &amp; Ligne) = ws.Range("AF" &amp; Ligne2) Ligne = Ligne + 1 End If Next Ligne2 End Sub Merci d'avance...

Dan · Accepted Answer

Re Code à essayer. Sub MAJData() Dim wb As Workbook Dim ws As Worksheet Dim Ligne As Integer, Ligne2 As Integer, lg As Integer Set wb = Workbooks.Open("C:\users\jpeyres\desktop\classeur2_test") 'Votre lien vers mon classeur2 Set ws = wb.Sheets("Suivi") Ligne = Feuil1.Range("A" &amp; Feuil1.Rows.Count).End(xlUp).Row + 1 Ligne2 = 3 For Ligne2 = 3 To ws.Cells(ws.Rows.Count, 32).End(xlUp).Row If ws.Range("AF" &amp; Ligne2) &lt;&gt; "" Then On Error Resume Next lg = Feuil1.Range("A:A").Find(ws.Range("AF" &amp; Ligne2), LookIn:=xlValues).Row If lg = 0 Then Feuil1.Range("A" &amp; Ligne) = ws.Range("AF" &amp; Ligne2) Ligne = Ligne + 1 End If On Error GoTo 0 End If lg = 0 Next Ligne2 End Sub A vous relire Crdlt...

Dan · Answer

Peut être en remplaçant cette ligne If ws.Range("AF" &amp; Ligne2) &lt;&gt; "" Then par celle ci If ws.Range("AF" &amp; Ligne2) &lt;&gt; "" And Feuil1.Range("A" &amp; Ligne) = "" Then Si ok, clique sur la case à cocher verte à voté du bouton EDITER pour clôture le fil lors de ta réponse Crdlt...

Dan · Answer

Re

Le code controle que la cellule en colonne A est vide. Si oui, la donnée est récupérée, si non on passe à la ligne suivante

Merci de donner plus d'explications voir un fichier pour comprendre

Crdlt

Dan · Answer

Re,

Ce que vous voulez faire c'est récupérer les données de AF du classeur 2 dans la colonne A du classeur 1 qui contient le code et ce, à partir de la ligne 14.

Si oui, il y un truc que je comprends pas au vu des explications.

For Ligne2 = 3 To ws.Cells(ws.Rows.Count, 5).End(xlUp).Row

Dans cette ligne, on est sur le classeur 2. Pourquoi la colonne 5 alors que la colonne AF est la 32 ?

Crdlt

Dan · Answer

Re

Je doute que cela fonctionnait ou alors faudrait voir le fichier original pour comprendre

Sinon faites un essai comme ceci :

Sub MAJDonnées()

Dim wb As Workbook
Dim ws As Worksheet

Dim Ligne As Integer, Ligne2 As Integer, lg As Integer

Set wb = Workbooks.Open("C:\users\cheminverslefichier.xlsm")
Set ws = wb.Sheets("Suivi")

Ligne = 14
Ligne2 = 3

For Ligne2 = 3 To ws.Cells(ws.Rows.Count, 32).End(xlUp).Row
        If ws.Range("AF" & Ligne2) <> "" And Feuil1.Range("A" & Ligne) = "" Then
            Feuil1.Range("A" & Ligne) = ws.Range("AF" & Ligne2)
        Else:
            lg = Feuil1.Range("A" & Feuil1.Rows.Count).End(xlUp).Row + 1
            Feuil1.Range("A" & lg) = ws.Range("AF" & Ligne2)
        End If
    Ligne = Ligne + 1
Next Ligne2

wb.Close

End Sub

Si ok, lors de votre réponse, merci de clôturer le fil en cliquant sur la case à cocher à coté du bouton EDITER

Cordialement

Dan · Answer

Re Dans votre code existant, merci d'essayer en remplaçant cette ligne Ligne = 14 par ceci Ligne = Feuil1.Range("A" &amp; Feuil1.Rows.Count).End(xlUp).Row + 1 Cordialement...

eriiic · Answer

Si je comprend bien tu voudrais écraser des valeurs, sauf si tu les as saisies à la main ? Une idée comme ça : il faudrait les reconnaitre. Les manuelles tu pourrais les mettre en bleu (ou gras ou italique si plus pratique) et la macro éviterait ces cellules. J'ai peut-être mal compris, j'ai juste lu et pas ouvert les fichiers. Je ne prend pas la main Dan, juste une proposition pour essayer de faire avancer le schimlblick eric...