macro marche sur 4 cellules mais comment faire pour des colonnes entières ?

**melodyyy** · 03/01/2007, 13h47

Voila en fait j'ai une macro qui est un peu galère a expliqué mais je vous explique...
Dans la colonne A j'ai un commentaire ancien, dans la colonne B un commentaire nouveau, et dans la colonne C une concaténation du commentaire nouveau, de la date (mise dans une autre cellule pour mieux concaténer) et du commentaire ancien.
Donc la j'ai réussi très bien pour 4 cellules...
Seulement je voudrais que ça le fasse sur toute la colonne...
Le but étant que dans la colonne B je rajoute un commentaire nouveau, que celui ci se concatène avec la date de modif et le commentaire ancien, et qu'ensuite s'efface la colonne A.

Vu que ça marche sur 4 cellules je vous montre ce que j'ai fais..Je pense pas que ce soit dur de faire ça tout le long de la colonne, le truc c'est que je reprends le boulot today et je suis un peu

lol

Mon code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Range("D1").Select
ActiveCell.FormulaR1C1 = "=RC[-2]&"" ""&TEXT(R[1]C[7],""jj/mm/AA"")&"" ""&RC[-3]"
Range("D1").Select
Selection.Copy
Range("C1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("D1").Select
    Application.CutCopyMode = False
    Selection.ClearContents
 
End Sub

**ouskel'n'or** · 03/01/2007, 14h21

- tu recherche la dernière ligne de ta colonne où recopier,
- tu mets ta formule dans D1 (ton code)
puis
- tu recopies la cellule D1 sur la plage comme indiqué

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

    Range("D1").AutoFill Destination:=Range("D2:D" & DernièreLigne), Type:=xlFillDefault

A+

**melodyyy** · 03/01/2007, 14h48

pas bête ton histoire, j'y pensais presque :p sauf que il me met erreur de syntaxe et me fait quand même la macro mais il m'efface pas la colonne C (j'ai un peu modifié ta macro) mais je comprends pas pourquoi le message d'erreur...tu vois toi ? je te rappelle mon nouveau code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
Sub formule()
 
Dim DernièreLigne
DernièreLigne = IF565
Range("D1").Select
ActiveCell.FormulaR1C1 = "=RC[-2]&"" ""&TEXT(R[1]C[7],""jj/mm/AA"")&"" ""&RC[-3]"
 
Range("C1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
Range("D1").AutoFill Destination:=Range("D2:D565" & DernièreLigne), Type:=xlFillDefault
    Range("C1").Select
    Application.CutCopyMode = False
    Selection.ClearContents
 
End Sub

**cafeine** · 03/01/2007, 14h49

Rien ne te choque dans ce code ?

Envoyé par melodyyy

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
../..
DernièreLigne = IF565
../..
Range("D1").AutoFill Destination:=Range("D2:D565" & DernièreLigne), ../..

**melodyyy** · 03/01/2007, 14h51

je savais que je dormais aujourd'hui...je réssais et sur toute la ligne

**melodyyy** · 03/01/2007, 14h54

nan il me refait la même chose j'ai modifié un tout petit peu:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
Range("C1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
Range("D1").AutoFill Destination:=Range("D1:DernièreLigne"), Type:=xlFillDefault

**melodyyy** · 03/01/2007, 14h55

De plus ça marche pour une ligne mais pas sur les autres lignes...
Si je vais sur A2 je met un com, B2 je met un com, il me concatène pas la date et les 2 com comme au dessus...

**ouskel'n'or** · 03/01/2007, 14h58

Ben voui !
Un coup tu lui mets que DernièreLigne = IF565 alors que je parle de D565, nécessairement, après...

Ensuite tu mets DernièreLigne = IF565 alors que je parle d'un N° de ligne et non pas de l'adresse d'une cellule, donc, 565 tout court...

Enfin tu mets Range("D2

565" & DernièreLigne) alors que tu désignes déjà la dernière ligne dans D565

M'étonne pas que ton pataquès génère une erreur

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Range("D1").AutoFill Destination:=Range("D2:D" & DernièreLigne), Type:=xlFillDefault

Y me semble pourtant que c'est bien ce que j'avais mis. Faut réfléchir avant de mettre des erreurs dans un code qu'en n'a pas

Allez, raconte !

**melodyyy** · 03/01/2007, 15h02

ouai mais nan parce que moi je veux juste pouvoir concaténer mes comm jusqu'a la ligne 565, la je met ça ça me génère une erreur quand même:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
Sub formule()
 
Dim DernièreLigne
DernièreLigne = 565
Range("D1").Select
ActiveCell.FormulaR1C1 = "=RC[-2]&"" ""&TEXT(R[1]C[7],""jj/mm/AA"")&"" ""&RC[-3]"
Range("C1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
Range("D1").AutoFill Destination:=Range(("D2:D564" & DernièreLigne), Type:=xlFillDefault
    Range("C1").Select
    Application.CutCopyMode = False
    Selection.ClearContents
 
End Sub

Dit moi ce que toi tu mettrais, parce que la je vois pas du tout du tout

**melodyyy** · 03/01/2007, 15h02

euh sans la 2ème parenthèse pardon c'est moi

**ouskel'n'or** · 03/01/2007, 15h08

Si tu donnes à DernièreLigne la valeur 565, et si tu mets LE CODE QUE JE T'AI PASSÉ sans le modifier, qu'est-ce qu'il se passe ?

**melodyyy** · 03/01/2007, 15h10

pareil une erreur 1004: erreur définit par l'application ou par l'objet...

**ouskel'n'or** · 03/01/2007, 15h12

Sur quelle ligne ?

**melodyyy** · 03/01/2007, 15h13

Pour info ça bloque entre ma 1ere selection de ma cellule D1 et ma concaténation de date

**melodyyy** · 03/01/2007, 15h14

Désolé de faire pleins de messages...je voulais préciser..
ça bloque entre la

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
Range("D1").Select

et la

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
ActiveCell.FormulaR1C1 = "=RC[-2]&"" ""&TEXT(R[1]C[7],""jj/mm/AA"")&"" ""&RC[-3]"

**ouskel'n'or** · 03/01/2007, 15h15

A quoi te sert cette ligne

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

puisque tu ne copies rien. Avant de coller, y faut copier

**melodyyy** · 03/01/2007, 15h18

Admettons, c'est pas faux à la base elle me servait...Fin l'erreur est toujours la...

elle a changé
elle est entre

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
Range("D1").AutoFill Destination:=Range("D2:D" & DernièreLigne), Type:=xlFillDefault

et la

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
Range("C1").Select

**ouskel'n'or** · 03/01/2007, 15h21

Si tu as un bug sur une ligne de code, cette ligne est mise en évidence. Là je ne comprends pas, ta formule est bonne et chez moi, la copie se fait bien
Par contre je n'ai pas la ligne citée dans ma dernière question piskelserarien (!)
Tu dis

Edit
Tu l'as supprimée, la ligne qui ne sert à rien ?

**bidou** · 03/01/2007, 15h24

c'est normal que tu es une erreur, ce doit être

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Range("D1").AutoFill Destination:=Range("D1:D" & DernièreLigne), Type:=xlFillDefault

**melodyyy** · 03/01/2007, 15h25

Si parce qu'après il faut qu'il m'efface la colonne C, donc elle me sert...mais pourquoi chez toi ça marche et pas moi ?

macro marche sur 4 cellules mais comment faire pour des colonnes entières ?

Macros et VBA Excel

Discussions similaires

Partager

Partager