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

Hulk

XLDnaute Barbatruc

• 18 Juillet 2009

• #2

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.

 

Dernière édition: 18 Juillet 2009

Vote positif 0 Vote négatif

B

bpol

XLDnaute Impliqué

• 19 Juillet 2009

• #3

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

 

Vote positif 0 Vote négatif

CBernardT

XLDnaute Barbatruc

• 19 Juillet 2009

• #4

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

 

Vote positif 0 Vote négatif

Cousinhub

XLDnaute Barbatruc

• 19 Juillet 2009

• #5

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...

Code:

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

 

Vote positif 0 Vote négatif

B

bpol

XLDnaute Impliqué

• 19 Juillet 2009

• #6

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

 

Dernière édition: 19 Juillet 2009

Vote positif 0 Vote négatif

B

bpol

XLDnaute Impliqué

• 23 Juillet 2009

• #7

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?

 

Vote positif 0 Vote négatif

Cousinhub

XLDnaute Barbatruc

• 23 Juillet 2009

• #8

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

Bonjour,

comme dit dans mon post, essaie ainsi :

Code:

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

 

Vote positif 0 Vote négatif

B

bpol

XLDnaute Impliqué

• 23 Juillet 2009

• #9

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

 

Vote positif 0 Vote négatif