copier coller sur 1ere cellule vide avec condition

titiborregan5 · 8 Janvier 2009

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 · 13 Janvier 2009

Re : copier coller sur 1ere cellule vide avec condition

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

Code:

 '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

copier coller sur 1ere cellule vide avec condition

titiborregan5

XLDnaute Accro

skoobi

XLDnaute Barbatruc

Discussions similaires

copier coller sur 1ere cellule vide avec condition

titiborregan5

XLDnaute Accro

skoobi

XLDnaute Barbatruc

Discussions similaires

Privacy & Transparency

Privacy & Transparency