Discussion :

[MNAESSENS]

Bonjour à tous,

Petite question,

J'ai un code VBA qui m’insère une ligne à la ligne 14 , en recopiant la ligne 12.
Cette ligne 12 contient dans une cellule , une formule .

J'aimerais que quand ma macro copie ma ligne 12 pour l'inserer en ligne 14 , que les formules se recopie également .

Vous avez une idée ?

merci d'avance

J'ai ce 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
Sub NouveauContact()
 
Dim i As Integer
Dim DerLig As Integer
  Rows("12").Select
   Selection.Copy
   Rows(Range("A" & Rows.Count).End(xlUp).Row + 1).Select
   Selection.PasteSpecial
   Application.CutCopyMode = False
 DerLig = Range("A" & Rows.Count).End(xlUp).Row
For i = 1 To 15
Cells(DerLig, i).Value = ""
Next i
 
Cells(Range("A" & Rows.Count).End(xlUp).Row + 1, 1).Select

[ARTURO83]

Bonjour,

Pas clair votre code, ni vos explications. Vous voulez copier la ligne 12 en ligne 14 (ce sera toujours la 14?), donc on décale la ligne 14 existante vers le bas qui devient la ligne 15, puis après insertion, vous effacer la ligne 15. Autant copier directement la ligne 12 à la place de la 14, inutile de faire une insertion pour supprimer par la suite. Est-ce bien cela?

Cdlt

[Menhir]

Ton code un peu débarbouillé :

Code :

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

1
2
3
4
Sub NouveauContact()
   Rows(12).Copy Cells(Rows.Count, "A").End(xlUp).Offset(1, 0)
   Cells(Rows.Count, "A").End(xlUp).Resize(1, 15).ClearContents
End Sub

Cette ligne 12 contient dans une cellule , une formule.

Quelle cellule ?

J'aimerais que quand ma macro copie ma ligne 12 pour l'inserer en ligne 14 , que les formules se recopie également .

Les formules se copient mais ta boucle For To vide les cellules de leur contenu.
Si tu veux conserver la formule, il suffit de ne pas effacer les contenus.

[Philippe Tulliez]

Bonjour,
Qu'est-ce que ce code est sensé faire ?

Le collage spécial tel que tu l'as utilsé recopie les formules et du coup on peut se poser la question de la raison d'utiliser cette méthode alors que la méthode Copy avec son argument nommé Destination est bien plus simple à utiliser et évite notamment l'instruction Application.CutCopyMode = False.
Ensuite, tu effaces ce que tu as copié. Cherchez l'erreur

Les Select, Selection sont parfaitement inutiles et ralentissent l'exécution d'une procédure

[Menhir]

Ensuite, tu effaces ce que tu as copié. Cherchez l'erreur

Sans certitude, je pense que la ligne 12 est le première ligne d'une liste et qu'elle sert de modèle pour créer les nouvelles lignes de saisie, d'où l'effacement des données pour laisser une ligne vierge.
Mais l'une de ces cellules doit être un calcul des autres données (je parierais sur "Prix total = prix unitaire * quantité").

[Philippe Tulliez]

Bonjour Menhir,
Ah oui, c'est possible mais comme l'initiateur de cette discussion nous donne peu d'élément on ne peut que deviner mais suite à sa question

J'aimerais que quand ma macro copie ma ligne 12 pour l'inserer en ligne 14 , que les formules se recopie également .

Le collage spécial tel qu'il l'utilise recopie bien les formules mais bien entendu de la ligne 12. C'est plutôt un problème de conception.

[MNAESSENS]

Bonjour a tous , désolé j'ai été pris par le travail :p

Merci à tous pour vos réponses je vais tenter de répondre à tout ça

Alors ,

En effet , la ligne 12 (deuxième ligne du tableau) sert de modèle pour l'insertion de la nouvelle ligne en ligne 13.


cette action se fais lorsque j'appuie sur nouveau contact.

Il y a dans la colonne "fournisseur" (colonne D ) une validation de données (dont liste se trouve en feuille 2 )

Les colonnes E , F , G , H s'alimentent en fonction du fournisseur choisie en colonne D.
Elles ont donc des formules (cellules E12 , F12 , G12 , H12 )

Le but du coup est que lorsque j'appuie sur nouveau contact , que les formules dans ces cellules se copie également en E13 , F13 , G13 , H13 )

La formules en ligne 12 est donc : =RECHERCHEV(D12;Feuil1!A2:AZ254;10;FAUX).
La formule qui doit être recopiée en ligne 13 : =RECHERCHEV(D13;Feuil1!A2:AZ254;10;FAUX).
formule pour ligne 14 : =RECHERCHEV(D14;Feuil1!A2:AZ254;10;FAUX).

etc etc...

Je sais pas si c'est assez clair ^^

Désolé pour le code VBA un peu en bordel , j'ai récupéré des morceaux de code un peu partout donc voila voila hah ^^

Merci a vous tous !

[Menhir]

Code :

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

1
2
3
4
5
6
7
Sub NouveauContact()
   Dim Dest As Range
   Set Dest = Cells(Rows.Count, "A").End(xlUp).Offset(1, 0)
   Rows(12).Copy Dest
   Dest.Resize(1, 4).ClearContents
   Dest.Offset(0, 8).Resize(1, 7).ClearContents
End Sub