copier cellules dans une autre feuille si elle n'existe pas dans la liste

[bpol]

Bonjour,

comment modifier cette partie de macro

Sheets("BD").Select
Ligne = Range("P65536").End(xlUp).Row + 1

Cells(Ligne, 1) = Sheets("encodage").Range("B7")

pour que la cellule B7 soit copiée si elle n'existe pas dans la colonne P de la feuille BD. si elle existe rien ne se passe.

Merci
Bpol

 

[Hulk]

Re : copier cellules dans une autre feuille si elle n'existe pas dans la liste

Hello Forum, Bpol,


EDIT :

Pardon trompé.

Autant pour moi.

Cdt.

 

[bpol]

Re : copier cellules dans une autre feuille si elle n'existe pas dans la liste

bonjour le forum,


simplement pour remonter mon post

Bon WE

Bpol

 

[CBernardT]

Re : copier cellules dans une autre feuille si elle n'existe pas dans la liste

Bonjour bpol,

Pas très claires tes explications sans un exemple de classeur !

Essaye cette syntaxe :

With Sheets("BD")
Ligne = .Range("P65536").End(xlUp).Row + 1
If .Range("P7").Value <> "" Then
.Cells(Ligne, 1).Value = Sheets("encodage").Range("B7").Value
End If
End With

Cordialement

Bernard

 

[Cousinhub]

Re : copier cellules dans une autre feuille si elle n'existe pas dans la liste

Bonjour,

d'après ce que j'ai compris...

Exemple à adapter...

Ligne = Range("D65536").End(xlUp).Row + 1
If IsError(Application.Match([B2], Columns(4), 0)) Then
    Cells(Ligne, 4) = Range("B2").Value
End If

 

[bpol]

Re : copier cellules dans une autre feuille si elle n'existe pas dans la liste

bonjour CBernardT, bhbh,

ce que je voudrais obtenir c'est que la cellule B7 de la feuille "encodage" se copie à l'aide de la macro "enregistrer" dans la colonne P de la feuille "BD" si elle n'existe pas encore

et un petit coup de main, je n'arrive pas à faire cela, une écriture intuitive ds B7 suivant la liste de la colonne P de " BD" car je n'arrive à maitriser la méthode

http://cjoint.com/?htofgEi2fk
Merci
Bpol

 

[bpol]

Re : copier cellules dans une autre feuille si elle n'existe pas dans la liste

bonjour le forum,

toujours personne pour une solution à mon problème?

 

[Cousinhub]

Re : copier cellules dans une autre feuille si elle n'existe pas dans la liste

Bonjour,

comme dit dans mon post, essaie ainsi :

With Sheets("BD")
    Ligne = .Range("P65536").End(xlUp).Row + 1
    If IsError(Application.Match([B7], .Columns(16), 0)) Then
        .Cells(Ligne, 16).Value = Range("B7").Value
    End If
End With

Et pour l'écriture intuitive, reporte-toi à ce tuto de JB :

Listes en cascade

 

[bpol]

Re : copier cellules dans une autre feuille si elle n'existe pas dans la liste

Merci bhbh,

pour lauite vais faire marcher mes neurones


A+
Bpol