[Résolu] [Calc] Copier d'autres valeurs filtrées

[calcul]

Salutations ,

                   J'ai une macro de sr. Churay qui copie les valeurs modifiées de la feuille de calcul 3 et les colle dans l'ordre de la feuille de calcul 1, ce processus fonctionne déjà correctement .

                  maintenant un nouveau besoin est apparu, à savoir dans la feuille de calcul 3, les valeurs sont filtrées par un filtre automatique, donc maintenant je dois copier les valeurs alternées filtrées et coller en séquence dans la feuille de calcul 1 .

                 mais la macro qui existe déjà dans le fichier ne fait pas correctement ce processus .

                 suit le nouveau fichier joint avec les valeurs filtrées dans la feuille de calcul 3 (avec un bouton dans la feuille de calcul 1)


ami câlin .

[OOotremer971]

Bonjour,

Pas sûr d'avoir bien compris comment tu veux copier tes valeurs. L'exemple te donne en feuille plan1, la même chose qu'en feuille plan3. En fait on copie seulement les lignes visibles :

Code : Tout sélectionner

Option Explicit
Sub copier_valeurs_visibles_Plan3 
Dim Odoc As Object, oSheet1 As Object, oSheet3 As Object, ligne As Object
Dim nRowMaxSheet1 As Long, nRowMaxSheet3 As Long, x As Long

odoc = Thiscomponent
oSheet1 = ThisComponent.Sheets.GetByName("Plan1")
oSheet3 = ThisComponent.Sheets.GetByName("Plan3")
nRowMaxSheet1 = DerLigne(oSheet1) + 1
nRowMaxSheet3 = DerLigne(oSheet3) + 1
For x = 1 to nRowMaxSheet3
   	ligne = oSheet3.Rows(x)
   	If ligne.IsVisible = True Then
   		oSheet1.getCellByPosition(0, nRowMaxSheet1).SetDataArray(oSheet3.getCellByPosition(0, x).GetDataArray)
   		nRowMaxSheet1 = nRowMaxSheet1 + 1		
   	end if
next
End Sub

A+

Ajout : Si c'est pas ça, ajoute au fichier une feuille plan4 pour montrer le résultat attendu.

[calcul]

bonjour sr. OOotremer971 ,

        dans la feuille de calcul 1, il suffit de coller les unes après les autres, c’est-à-dire de coller les unes sous les autres dans l’ordre .

        J'ai ajouté une feuille de calcul 4 (Plan4) avec le résultat attendu .

        J'ai fait un modèle pour trois copies consécutives, c'est-à-dire comme si j'avais appuyé trois fois sur le bouton .

        suit le fichier joint .


ami câlin

[OOotremer971]

Bonjour,

Maintenant c'est clair :

A+

[calcul]

[RÉSOLU]

fonctionne parfaitement !

Merci encore .


ami câlin .