XL 2016 macro copier coller avec condition

vgendron

XLDnaute Barbatruc

• 12 Avril 2018

• #2

bonjour

un essai avec ce code à mettre dans un module standard et à affecter à ton bouton

VB:

Sub Mutations()
With ActiveSheet
    fin = .UsedRange.Rows.Count
    For i = 2 To fin
        If .Range("I" & i) <> "" Then
            .Range("W" & i) = .Range("D" & i)
            .Range("D" & i) = .Range("N" & i)
            .Range("G" & i) = .Range("R" & i)
            .Range("I" & i & ":K" & i).ClearContents
            .Range("M" & i & ":N" & i).ClearContents
            .Range("Q" & i & ":R" & i).ClearContents
            .Range("T" & i & ":U" & i).ClearContents
        End If
    Next i
End With
End Sub

Normalement. ca se comprend "intuitivement" avec la traduction Anglais -Francais.
dis moi s'il reste des lignes obscures :-D

 

Vote positif 0 Vote négatif

B

Bnj

XLDnaute Occasionnel

• 12 Avril 2018

• #3

MERCI beaucoup !

ça doit être pour cela que je ne comprend rien en VBA ! je suis une tare en anglais
peux tu m'expliquer la ligne fin= ... ?

 

Vote positif 0 Vote négatif

Jauster

XLDnaute Occasionnel

• 12 Avril 2018

• #4

fin est une variable a laquelle on attribue la valeur .UsedRange.Rows.Count soit les cellules utilisées dans une feuille active (d'où le With ActiveSheet juste avant). Ca permet ensuite de faire une boucle et parcourir non pas toutes les cellules du fichier mais uniquement les cellules utilisées

 

Vote positif 0 Vote négatif

B

Bnj

XLDnaute Occasionnel

• 12 Avril 2018

• #5

bonjour

merci pour ces explications

comment adapter ce code pour que cette macro s'éxécute que si la date comprise dans la colonne R est dépassée ?

 

Vote positif 0 Vote négatif

Lone-wolf

XLDnaute Barbatruc

• 12 Avril 2018

• #6

Bonjour à tous

Faudrais s'avoir... en plus tu aurais dû le dire tout de suite, on est pas la pour s'amuser.

Remplace If .Range("I" & i) <> "" Then par If Date > Date(.Range("R" & i)) Then
Le reste du code

Oubien
If Date(.Range("R" & i)) > Date(.Range("I" & i)) Then

 

Vote positif 0 Vote négatif

B

Bnj

XLDnaute Occasionnel

• 13 Avril 2018

• #7

Bonjour à tous,

tout d'abord désolé de ce désagrément.

je vous embête encore un peu car les solutions approtées m'indiquent une erreur :
If .Range("I" & i) <> "" And Date > Date(.Range("R" & i)) Then

l'erreur proviendrait du . entre la parenthèse et Range.

J'ai essayé de le supprimé mais cela ne fonctionne pas

 

Vote positif 0 Vote négatif

Lone-wolf

XLDnaute Barbatruc

• 13 Avril 2018

• #8

Bonjour Bnj, jauster, le Forum 🙂

.Range("I" & i) <> "" n'est pas utile. Lit comme il faut ce que j'ai écrit au post #6.

 

Vote positif 0 Vote négatif

Jauster

XLDnaute Occasionnel

• 16 Avril 2018

• #9

Hello,

Message supprimé pour ne pas influencer les autres vers une erreur. Mais ce que je ne comprends pas c'est pourquoi ce n'est pas utile ? Le SI ne doit s'appliquer que si i est vide, mais je ne vois pas comment on traite cette condition ? Si DATE de R > DATE de i peut être vrai aussi bien avec I vide que complété

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 16 Avril 2018

• #10

Bonsoir le fil, le forum

Lone-wolf à dit:

Bonjour à tous

Faudrais s'avoir... en plus tu aurais dû le dire tout de suite, on est pas la pour s'amuser.

Remplace If .Range("I" & i) <> "" Then par If Date > Date(.Range("R" & i)) Then
Le reste du code

Oubien
If Date(.Range("R" & i)) > Date(.Range("I" & i)) Then

Cliquez pour agrandir...

@Lone-wolf
Y a comme un bug dans ton code, non ? 😉

Voir ce petit rappel 😉

VB:

Sub test()
MsgBox DateValue(Date + 1) 'j'achète !!!
MsgBox DateSerial(Year(Date), 1, 1)'j'achète!!!
'Msgbox Date(Range("A1"))'-<ERREUR!!!
End Sub

 

Vote positif 0 Vote négatif

Lone-wolf

XLDnaute Barbatruc

• 16 Avril 2018

• #11

Bonsoir tout le monde 🙂

@Staple1600

Tu as raison, erreur de ma part. Date est en trop avant .Range("R" & i).
If Date > .Range("R" & i) Then


@Jauster

cette macro s'éxécute que si la date comprise dans la colonne R est dépassée

Cliquez pour agrandir...

<> "" n'a rien à voir avec la condition demandée.

 

Vote positif 0 Vote négatif

Jauster

XLDnaute Occasionnel

• 17 Avril 2018

• #12

Lone-wolf à dit:

@Jauster

<> "" n'a rien à voir avec la condition demandée.

Cliquez pour agrandir...

Effectivement, si le que de "cette macro s'éxécute que si la date comprise dans la colonne R est dépassée ?" exclu la première demande "j'aimerais que quand je clique sur ce bouton et si la cellule I2 est remplie cela :"

@Bnj où en est la macro ?

 

Vote positif 0 Vote négatif

B

Bnj

XLDnaute Occasionnel

• 15 Mai 2018

• #13

Hello tout le monde

je vais tester la macro cet après midi et revient vers vous au plus vite , en tout cas, un gros merci pour votre implication sur ma requête

 

Vote positif 0 Vote négatif