Amélioration Code

Bonjour,

je viens solliciter votre aide pour mon code de sauvegarde.

En effet jusqu'à maintenant je sauvegardai dans onglet Recap

les lignes de mon choix en cliquant sur une cellule de cette ligne.

Aujourd'hui mes remontés sont plus nombreux donc besoins d'adaptés mes sauvegarde par bloc

le top serait que quand je click sur une colonne il me remonte toutes les datas de ceux qui sont sur fond

blanc. voir exemple joint

Merci par avance de votre aide

Cordialement

Bonjour,

C'est la première fois que j'ai un sujet qui semble insolvable sur ExcelPratique,

cela ne m'étonne pas car avant de le posté je me suis dit est-ce réalisable?

J'ai tellement était surpris par la qualité de ce forum en terme d'ingéniosité que

j'ai tenté le coup.

Merci à vous tous et bonne et longue vie aux différentes belles personnes qui l'animent et au Forum

Bonsoir

un aperçu pour les lignes blanches

Interior.ColorIndex = 2 (chiffre 2 pour le blanc)

une macro qui a été posté sur le forum ici

testé un peu modifié qui supprime les lignes blanches en commençant par la colonne B de la feuille

(voir module 2) du Vba mettre un nouveau module pour l'autre onglet

- enregistrer le fichier (prenant en charges les Macros)

Question : pour l'intérieur de certaines colonnes qui sont blanches faut supprimer la ligne entière aussi ?

ci-joint

crdlt,

André

Merci Andre13,

Ta proposition pour effacer n'est pas le résultat escompté surtout que l'onglet Selseq0 SelSeq1... apparaît x20 sur 40000 lignes dans mon classeur . Le but est de faire un récapitulatif en sélectionnant bouton enregistrement colonne H et arret enregistrement.

En gros me recupérer toutes les lignes si cellule Colonne H = fond blanc vers Recap en ce mettant les uns derrières les autres .

cordialement

Bonjour

oui exact c'est un exemple et le vba va jusqu'à 1000 lignes

à voir si

Const PremLigne = 4 ' à partir de la 4ème lignes

Const DerLigne = 1000 ' à modifier suivant version Excel

il faudrait l'adapté pour faire des pauses mais pour moi là c'est une autre histoire

il doit y avoir quelqu'un du Forum qui a sans doute mieux à te proposer

crdlt,

André

Merci,

Quelqu'un a une idée ?

bonjour,

Une 'tite macro :

Sub galopin()
Dim i&, ii&, iLR&, k&, Arr, WsC As Worksheet, rng$
Set WsC = Worksheets("Recap")
ii = 2
With Worksheets("SelSeq")
iLR = .Cells(.Rows.Count, 2).End(xlUp).Row - 3
For i = 4 To iLR Step 5
   If .Cells(i, 8).Interior.ColorIndex = xlNone Then
      k = .Cells(i, 2).Interior.Color
      Arr = .Range(.Cells(i, 2), .Cells(i + 3, 14)).Value
      rng = WsC.Range("A" & ii & ":M" & ii + 3).Address
      WsC.Range(rng) = Arr
      WsC.Range(rng).Interior.Color = k
      ii = ii + 4
   End If
Next
End With
End Sub

A+

Merci galopin01 c'est exactement ça

peut-on adapter le code pour que le recap ne s'efface pas mais s'incrémente d'autres lignes pour une autre recherche.

A terme j'aurai un bouton pour effacer l'onglet si besoins.

Merci beaucoup

Merci galopin01 c'est exactement ça

peut-on adapter le code pour que le recap ne s'efface pas mais s'incrémente d'autres lignes pour une autre recherche.

A terme j'aurai un bouton pour effacer l'onglet si besoins.

Merci beaucoup

bonjour,

Modifie la ligne 4 :

ii = WsC.Cells(WsC.Rows.Count, 2).End(xlUp).Row + 1

A+