Il me manque un chti truc !

[WDAndCo]

Bonsoir le Forum

Voici un code qui me copie une partie de ligne :

Sub NouvelleLigne()
'
' NouvelleLigne Macro
' Macro enregistrée le 30/07/2008 par Dominique
'

'
    Range("O1:AA1").Select
    Selection.Copy
    Range("A13:L13").Select
    Selection.Insert Shift:=xlDown
    Range("E13:J13").Select
    Application.CutCopyMode = False
End Sub

le petit truc qui me manque est que ce n'est pas forcement en ligne 13 que cela doit se faire mais sur la ligne dont la valeur est en N1 et sa je ne sais pas faire. Ou comment remplacer les 13 par la valeur de N1.

Merci d'avance
Dominique

 

[TooFatBoy]

Re : Il me manque un chti truc !

Bonsoir,

Je ne suis pas bien sûr, mais essaye de remplacer 13: par "&N1&": et 13" par "&N1

 

[WDAndCo]

Re : Il me manque un chti truc !

Re Bonsoir

Sub NouvelleLigne()
'
' NouvelleLigne Macro
' Macro enregistrée le 30/07/2008 par Dominique
'

'
    Range("O1:AA1").Select
    Selection.Copy
    Range("A" & N1 & ":L" & N1).Select
    Selection.Insert Shift:=xlDown
    Range("E" & N1 & ":J" & N1).Select
    Application.CutCopyMode = False
End Sub

Ne marche pas !

 

[TooFatBoy]

Re : Il me manque un chti truc !

Il faut que la destination ait la même taille que la source, essaye donc avec M plutôt que L, ou alors ne sélectionne que la première cellule, donc A.

 

[TooFatBoy]

Re : Il me manque un chti truc !

Cec doit fonctionner :

Sub NouvelleLigne()
'
' NouvelleLigne Macro
' Macro enregistrée le 30/07/2008 par Dominique
'

'
    Range("O1:AA1").Select
    Selection.Copy
    Range("A" & Range("N1") & ":M" & Range("N1")).Select
    Selection.Insert Shift:=xlDown
    Range("E" & Range("N1") & ":J" & Range("N1")).Select
    Application.CutCopyMode = False
End Sub

 

[WDAndCo]

Re : Il me manque un chti truc !

Merci je n'ai pas essayer ton code mais j'ai trouvé

Sub NouvelleLigne()
'
' NouvelleLigne Macro
' Macro enregistrée le 30/07/2008 par Dominique
'

'
    Dim Ligne
    Ligne = Range("N1").Value
    Range("O1:AA1").Select
    Selection.Copy
    Range("A" & Ligne & " :L" & Ligne).Select
    Selection.Insert Shift:=xlDown
    Range("E" & Ligne & " :J" & Ligne).Select
    Application.CutCopyMode = False
End Sub

Encore merci

Dominique

 

[kjin]

Re : Il me manque un chti truc !

Dim Ligne
Ligne = Range("N1").Value
Range("O1:AA1").Select
Selection.Copy
Range("A" & Ligne & " :L" & Ligne).Select
Selection.Insert Shift:=xlDown
Range("E" & Ligne & " :J" & Ligne).Select
Application.CutCopyMode = False
End Sub

Bonjour,
Pour contredire ton adage et te demander pourquoi tu poses la question si finalement tu ne tiens pas compte des réponses qui te sont faites, Marcel32, que je salue, t'avait pourtant bien signaler que la plage de destination devait être de même dimension que la plage source donc ici,
soit :

Sub NouvelleLigne()
Dim Ligne
Ligne = Range("N1").Value
Range("O1:AA1").Copy
Range("A" & Ligne & " :M" & Ligne).Insert Shift:=xlDown
Application.CutCopyMode = False
End Sub

soit plus simplement :

Sub NouvelleLigne()
Dim Ligne
Ligne = Range("N1").Value
Range("O1:AA1").Copy
Range("A" & Ligne).Insert Shift:=xlDown
Application.CutCopyMode = False
End Sub

Sinon mystère
A+
kjin

 

[WDAndCo]

Re : Il me manque un chti truc !

Bonsoir le Forum

Mais si je tiens compte des remarques et autre, mais dans la cas présent la copie ne se faisait pas sur la bonne ligne.
De plus le nombre de colonne est bon car ce sont des cellule liées.

Encore merci
Dominique