Problème avec sélection puis glisser

Bonjour à toutes et tous,

je viens vers vous car j'ai un problème que je n'arrive pas à résoudre avec mon fichier excel (ci-joint).

J'ai créé une macro pour m'ajouter des lignes...lorsque je l'utilise en cliquant sur le bouton "Ajout de lignes" tout fonctionne mais lorsque je sélectionne la cellule A101 puis fais un glisser vers le bas pour copier ma valeur cela m'ajoute une ligne....

Comprends pô

Si une bonne âme pouvait m'aiguiller...

Merci d'avance

Bonjour

Bah oui. En fait vous avez créé un tableau au format structuré qui est nommé "Tableau1" dans votre gestionnaire de noms.
Donc chaque fois que vous faites votre recopie le tableau s'adapte de lui-même notamment à l'arrière plan dû à votre code Function
Pour faire au plus simple et par rapport à votre macro Ajout, faites ceci :
- Cliquez dans une cellule du tabeau (par exemple : A50)
- Dans le menu excel, cliquez sur "création de tableau"
- Dans la rubrique Outils, cliquez sur l'icône "convertir en plage"

Cela va résoudre le problème que vous mentionnez

Pour votre code Ajout, prenez plutôt celui-ci

Sub Ajout()
Dim Derniere_Ligne As Integer

With ActiveSheet
    .Unprotect
    Derniere_Ligne = .Range("A7").End(xlDown).Row
    'Copie la première ligne de données
    .Rows("10:100").Copy
    .Range("a" & Derniere_Ligne + 1).Insert Shift:=xlDown

    With .Range("A" & Derniere_Ligne + 1 & ":A" & .Range("a" & Derniere_Ligne + 1).End(xlDown).Row)
        .ClearContents
        .Offset(0, 1).ClearContents
        .Offset(0, 2).ClearContents
    End With

    'Se positionne sur la première ligne du numéro d'échantillon à saisir
    .Range("a" & Derniere_Ligne + 1).Activate
End With
End Sub

Si ok et terminé pensez à cloturer le fil

Cordialement

Bonjour @Dan,

un grand merci pour votre aide. Cela fonctionne mais un problème persiste.

J'avais converti en tableau car j'ai une moyenne qui doit se calculer en C193 (dans le fichier que je joint).

Du coup, il faudrait que la formule s'adapte en fonction du nombre de lignes maintenant

Bonjour à tous !

Pour information, en contravention de la charte, la demande est multi-postée.....

Oui, je sais je n'avais pas fait attention à cette partie !

Désolé je clôture l'autre post.

Merci JFL

Re,

@ JFL : merci de votre intervention et d'avoir veillé au "grain"....

@ Spark : Ayant vu sur l'autre site que vous avez signalé avoir trouvé une réponse, je vous donne une solution

1. Allez dans le gestionnaire de noms
2. Créez par exemple ce nom --> Moy ou Plage
3. Dans la rubrique, "fait référence à", mettez cette formule --> =DECALER(Modele!$C$8;;;NBVAL(Modele!$A:$A)-4)
4. Dans la cellule C193, remplacez votre formule par ceci --> =SIERREUR(MOYENNE(Moy);"") ou =SIERREUR(MOYENNE(Plage);"")

Pour que cela fonctionne, vous devez toujours avoir une donnée en colonne A d'abord

Crdlt

Merci pour la solution, j'avais oublié que le multi post était interdit !

Ca me vaudra une piqure de rappel !

Bonjour à tous de nouveau !

Spark a écrit :

......j'avais oublié que le multi post était interdit !

Ca me vaudra une piqure de rappel !

Je salue votre état d'esprit !

re

Merci pour la solution, j'avais oublié que le multi post était interdit !
Ca me vaudra une piqure de rappel !

A moins que l'on refuse de vous répondre, à la base cela me parait toujours évident et surtout plus correct de ne pas aller demander ailleurs.
Mais bon c'est déjà correct d'avoir signalé sur l'autre site que l'on vous avait déjà donné une réponse.

Si la solution proposée est ok, pensez à cloturer le fil

Merci de votre participation

Cordialement