Copier les données vers un autre

Bonjour,

je sollicite votre aide afin de boucler mon mémoire de master 2, on m'a déjà beaucoup aider sur ce forum et il me reste un tout petit point pour terminer. En effet, dans le même classeur j'ai deux feuilles "Exigences" et "Resultats globaux".

La feuille exigence comporte 3 niveaux

Les lignes chapitre : 7 lignes (de chapitre 4 à chapitre 10) le nombre de chapitres ne varie pas.

Les lignes Sous Chapitre : selon mes besoins je peux en ajouter ou en supprimer. Donc le nombre de sous chapitre dans chaque chapire peut augmenter ou diminuer a tout instant

Les lignes critères : selon mes besoins je peux en ajouter ou en supprimer. Donc le nombre de critères dans chaque sous chapitre peut augmenter ou diminuer a tout instant

1 - La feuille Resultats globaux comporte un tableau récapitulatif que j'ai rempli manuellement , je souhaiterais que ce tableau soit automatiquement de sorte que à chaque fois qu'un sous chapitre est ajouté ou supprimé d'un chapitre qu'il se réactualise

2 - les formules des cellules N et T de l'utilitaire suivent l'actualisation du tableau récapitulatif

3 - La formule de la cellule U de l'utilitaire suit le nombre de ligne du tableau exigence

reactualisation tableau recapitulatif

Bonjour,

Déjà un grand merci pour tout ce que vous faites pour m'aider

Mais il y a toujours une erreur dans la reconnaissance des cellules sous chapitre à chaque fois que je lance la macro aargh les cellules "j" et "k" de certaines lignes sous chapitre ainsi que leurs critères ne sont pas pris en compte.

ik

j'utilise la toute première macro que vous m'aviez envoyé pour corriger les cellules "j" et je l'ai adapté pour "k"

Sub Lignek()
    With Sheets("exigences")
        dl = .Cells(Rows.Count, 3).End(xlUp).Row
        pri = 11
        For i = 12 To dl + 1
            If .Cells(i, 1) <> "" Or .Cells(i, 3) = "" Then
                nl = i - pri - 1
                If nl > 0 Then
                    .Cells(pri, "k").Formula = "=sum(k" & pri + 1 & ":k" & i - 1 & ")"
                End If
                pri = i
            End If
        Next i
    End With
End Sub

bonjour,

bug corrigé

bonjour,

bug corrigé

bonsoir

pas encore pour les sous chapitre qui précédent un chapitre les lignes oranges sont pris en compte dans la pondération

bonjour

merci

Bonsoir merci beaucoup. tout fonctionne j'ai pris le temps de vérifier.

Merciiiiiiiiiiii !

Rechercher des sujets similaires à "copier donnees"