Petit problème a priori pas compliqué....

[kioups]

Bonsoir à tous,

je cherche à "copier" les données d'une feuille dans une autre en occultant certaines cases...

Pour faire simple, les lignes 1 à 5 de ma feuille1 seront les lignes 1 à 5 de ma feuille2. Mais les lignes 6 à 10 de ma feuille2 ne seront pas les lignes 6 à 10 de ma feuille1 mais les lignes 11 à 15... Et ainsi de suite, les lignes 11 à 15 seront les lignes 21 à 25 etc.

En plus de ça, je "supprime certaines colonnes, donc, j'aimerais trouver une petite formule de bidouillage qui me permettent de faire ça automatiquement. Un truc du style =Feuil1!(ligne;5*colonne+2) ou un truc comme ça...

Je fournis un exemple de ce que j'aimerai avoir. Dans la feuill2, j'aimerai avoir des formules dans les cases... Enfin, la même formule si possible, avec un copier-coller intelligent...

Merci d'avance!

Kioups

 

[jp14]

Re : Petit problème a priori pas compliqué....

Bonsoir

Voici une macro qui devrait répondre au problème
A tester.
Sub recopie()
Dim j As Long
Dim i As Long
Dim data1 As String
Dim lo As Integer
j = 1
For i = 1 To Sheets("feuil1").Range("a65536").End(xlUp).Row
If i < 10 Then lo = 1
If i > 10 And i < 100 Then lo = 2
If i > 99 And i < 1000 Then lo = 3
If i > 999 And i < 100000 Then lo = 4
data1 = i' on transforme le nombre en texte
data1 = Mid(data1, lo, 1) ' on extrait le chiffre des unités

If data1 > "0" And data1 < "6" Then
Sheets("Feuil3").Cells(j, 1) = Sheets("Feuil1").Cells(i, 1)
Sheets("Feuil3").Cells(j, 2) = Sheets("Feuil1").Cells(i, 2)
j = j + 1
End If
Next i

End Sub


JP


PS
Avec une formule
=SI(ET(MOD(LIGNE(A1);10)>0;MOD(LIGNE(A1);10)<6);A1;"")
cette formule laisse des blancs entre les noms

 

[kioups]

Re : Petit problème a priori pas compliqué....

Merci beaucoup JP!

 

[mjo]

Re : Petit problème a priori pas compliqué....

Bonjour,

Puisque ce n'est pas compliqué ... !

En Feuil2!A1 : =INDIRECT("Feuil1!"&CAR(IMPAIR(COLONNE())+64)&ENT((LIGNE()-1)/3)*2+LIGNE())

A copier en B1, puis copier A1:B1 vers le bas.

mjo

Edition : enlever l'espace entre ( (LIGNE ...