copier coller sur 1ere cellule vide avec condition

[titiborregan5]

Bonjour à tous,
je souhaite copier des valeurs de différents classeurs les unes à la suite des autres (que cela n'efface pas la/les précédentes), dans un autre classeur.
Plusieurs classeurs émetteurs pour un récepteur.
Ca j'y arrive. :d
Par contre, je souhaiterai qu'avant il vérifie si la donnée n'existe pas déjà.
Si elle existe, qu'il remplace la 1ère (déjà existante)
Si elle n'existe pas, il colle à la suite.

J'imagine qu'un if qqch doit exister mais je n'arrive pas à le formuler.

Merci d'avance.

 

[skoobi]

Re : copier coller sur 1ere cellule vide avec condition

C'est ce que fait la macro vers la fin (enfin normalement 😀):

 'save and close document avec nom de fichier = cellule A1
  With Sheets("Récapitulatif")
    If .Range("T2").Value <> "" And .Range("T4").Value = "" Then  'si valideur1 n'est pas vide et valideur2 est vide
      fichier = fichier & .Range("T2").Value
    ElseIf .Range("T4").Value <> "" Then  'si valideur2 n'est pas vide
      fichier = fichier & .Range("T4").Value
    End If
  End With
  ThisWorkbook.SaveAs Filename:=chemin & "\" & fichier & ".xls"
  rep = MsgBox("Votre fichier a été sauvegardé avec succès sous le nom : " & Chr(10) & Chr(10) & "                 - " & fichier & Chr(10) & Chr(10) & "A l'adresse suivante: " & Chr(10) & Chr(10) & "                 - " & chemin & Chr(10) & Chr(10) & "                        Merci de votre coopération            ", vbOKOnly, fichier)
  ThisWorkbook.Close