Copie_colle_valeurvide_ou_non

T

titiborregan5

XLDnaute Accro

• 17 Juin 2013

• #2

Re : Copie_colle_valeurvide_ou_non

Bonjour stab,
si c'est un copier coller simple et non un couper coller...

Code:

if range("m34")="" then
range ("m34").value=range("e28").value
else
range("m35").value=range("e28").value
end if

 

Vote positif 0 Vote négatif

S

stpab

XLDnaute Nouveau

• 17 Juin 2013

• #3

Re : Copie_colle_valeurvide_ou_non

Merci pour ta réponse, c'est effectivement cela que je recherche mais est-il possible de le faire pour N valeur et non pour 2?

 

Vote positif 0 Vote négatif

T

titiborregan5

XLDnaute Accro

• 17 Juin 2013

• #4

Re : Copie_colle_valeurvide_ou_non

c'est à dire n valeurs? coller dans la 1ère cellule vide en dessous de m34?

 

Vote positif 0 Vote négatif

vgendron

XLDnaute Barbatruc

• 17 Juin 2013

• #5

Re : Copie_colle_valeurvide_ou_non

Bonjour,

voici une macro qui devrait répondre à ton besoin

Code:

Sub Macro1()
    Range("E28").Select
    Selection.Copy
    If Range("M34") <> "" Then
        Range("M65336").End(xlUp).Offset(1, 0).Select
    Else: Range("M34").Select
    End If
    ActiveSheet.Paste
End Sub

Maintenant, pourquoi la tienne ne fonctionne pas:
1) N n'est pas définie: donc la macro ne rentre jamais dans ta boucle for
2) la condition if est mal écrite:
ce que tu souhaites faire, c'est voir si la cellule est vide ou pas:
ce que tu écris c'est un truc du genre: si la cellule M34 contient la formule "non(estvide(m34))
en plus.. tu sélectionnes en meme temps que tu testes..
donc:
If Range("M34").Select = "=NON(ESTVIDE(M34))" Then
serait à remplacer par
if Range("M34")<>""

3) Range(cells(i+1,12)): il ne connait pas car la syntaxe c'est Range(Cell1,Cell2)
toi tu ne définis que Cell 1 (un petit tour vers l'aide VBA devrait t'éclairer)

4) en admettant que la syntaxe soit bonne: ta boucle est incorrecte:
Si la cellule M34 est vide alors
copie E28 en M34
sinon copie E28 en M35: tu copies avant meme de regarder si celle ci est aussi vide ou pas

voila.. ;-)

 

Vote positif 0 Vote négatif

S

stpab

XLDnaute Nouveau

• 17 Juin 2013

• #6

Re : Copie_colle_valeurvide_ou_non

Merci de ton aide j'i suis presque, je n'ai besoin que de la valeur de la case et non de la formule que doit-je modifier?

 

Vote positif 0 Vote négatif

S

stpab

XLDnaute Nouveau

• 17 Juin 2013

• #7

Re : Copie_colle_valeurvide_ou_non

Merci pour votre aide, un petit mix de vos deux réponse et cela fonctionne.


Range("E28").Select
Selection.Copy
If Range("M34") <> "" Then
Range("M65336").End(xlUp).Offset(1, 0).Value = Range("e28").Value
Else: Range("M34").Value = Range("e28").Value
End If
ActiveSheet.Paste


Très cordialement,

 

Dernière édition: 17 Juin 2013

Vote positif 0 Vote négatif

T

titiborregan5

XLDnaute Accro

• 17 Juin 2013

• #8

Re : Copie_colle_valeurvide_ou_non

le range(e28").select et selection.copy ne servent à rien si ce n'est alourdir la macro...

 

Vote positif 0 Vote négatif

vgendron

XLDnaute Barbatruc

• 17 Juin 2013

• #9

Re : Copie_colle_valeurvide_ou_non

Effectivement,
merci de l'avoir si gentiment fait remarquer....

Donc Range("E28").copy suffit

 

Vote positif 0 Vote négatif

T

titiborregan5

XLDnaute Accro

• 17 Juin 2013

• #10

Re : Copie_colle_valeurvide_ou_non

vgendron à dit:

Effectivement,
merci de l'avoir si gentiment fait remarquer....

Donc Range("E28").copy suffit

Cliquez pour agrandir...

Désolé du ton, je venais de voir le double post et que ça répondait des 2 cotés...
Je pense même que le range.copy n'est pas nécessaire puisqu'on met un =... et qu'on ne veut que la valeur...
Non?

 

Vote positif 0 Vote négatif

vgendron

XLDnaute Barbatruc

• 17 Juin 2013

• #11

Re : Copie_colle_valeurvide_ou_non

Re
pas de souci
d'ailleurs tu as raison, Stpab a déjà "presque" corrigé tout seul

ceci suffit

Code:

If Range("M34") <> "" Then
Range("M65336").End(xlUp).Offset(1, 0).Value = Range("e28").Value
Else: Range("M34").Value = Range("e28").Value
End If

 

Vote positif 0 Vote négatif

S

stpab

XLDnaute Nouveau

• 17 Juin 2013

• #12

Re : Copie_colle_valeurvide_ou_non

Merci de votre aide.

Et juste pour info personnel, si je souhaite maintenant coller le contenu non plus dans la colonne du M34 mais dans la colonne du A1 de la feuille 2 que dois-je modifier?

 

Vote positif 0 Vote négatif

T

titiborregan5

XLDnaute Accro

• 17 Juin 2013

• #13

Re : Copie_colle_valeurvide_ou_non

sheets("feuil2").range("a1").end(xldown).offset(1,0).value=

 

Vote positif 0 Vote négatif