Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
John Fuss
Supprimer les cellules vides avec "Atteindre" ??
John
"" a écrit dans le message de news:a13201c3eb2e$05834da0$ Bonjour à tous...
Voici mon épineux problème. Comment faire ce qui suit ?
Avant :
1 2 3 4 A F A J A Z
Après :
1 2 3 4 A F J Z
et le tableau fait quelques milliers de lignes...
La fonction Sous-total ne me sert pas dans ce cas-ci à cause des cellules avec du texte...
Merci pour vos réponses.
Supprimer les cellules vides avec "Atteindre" ??
John
"gripoil@alussinan.org" <anonymous@discussions.microsoft.com> a écrit dans
le message de news:a13201c3eb2e$05834da0$a401280a@phx.gbl...
Bonjour à tous...
Voici mon épineux problème. Comment faire ce qui suit ?
Avant :
1 2 3 4
A F
A J
A Z
Après :
1 2 3 4
A F J Z
et le tableau fait quelques milliers de lignes...
La fonction Sous-total ne me sert pas dans ce cas-ci à
cause des cellules avec du texte...
for each ra in range("A1").currentregion if ra.row > 1 and ra.column > 1 and len(ra.value) > 0 then set ra2 = sheets("Feuil2").Range("A65536").end(xlup).offset(1,0) ra2.formula = ra.value ra2.offset(0,1).formula = intersect(ra.entirecolumn, range("1:1")).value ra2.offset(0,2).formula = intersect(ra.entirerow, range("A:A")).value end if next
tu executes ça, je pense que ça devrait te généré un tableau contenant tes infos de manière plus 'à plat' pour te permettre d'utilisé un tableau croisé dynamique et enfin obtenir ce que tu veux.
John
"" a écrit dans le message de news:a1e001c3eb35$aa8d3200$ Ok, je reprends en plus détaillé...
Avant :
1 2 3 4 A F A J A Z B L B W . .
Après :
1 2 3 4 A F J Z B W L . .
Je ferai comme suit :
dim ra as range, ra2 as range
for each ra in range("A1").currentregion
if ra.row > 1 and ra.column > 1 and len(ra.value) > 0 then
set ra2 = sheets("Feuil2").Range("A65536").end(xlup).offset(1,0)
ra2.formula = ra.value
ra2.offset(0,1).formula = intersect(ra.entirecolumn,
range("1:1")).value
ra2.offset(0,2).formula = intersect(ra.entirerow,
range("A:A")).value
end if
next
tu executes ça, je pense que ça devrait te généré un tableau contenant tes
infos de manière plus 'à plat' pour te permettre d'utilisé un tableau croisé
dynamique et enfin obtenir ce que tu veux.
John
"gripoil@alussinan.org" <anonymous@discussions.microsoft.com> a écrit dans
le message de news:a1e001c3eb35$aa8d3200$a401280a@phx.gbl...
Ok, je reprends en plus détaillé...
for each ra in range("A1").currentregion if ra.row > 1 and ra.column > 1 and len(ra.value) > 0 then set ra2 = sheets("Feuil2").Range("A65536").end(xlup).offset(1,0) ra2.formula = ra.value ra2.offset(0,1).formula = intersect(ra.entirecolumn, range("1:1")).value ra2.offset(0,2).formula = intersect(ra.entirerow, range("A:A")).value end if next
tu executes ça, je pense que ça devrait te généré un tableau contenant tes infos de manière plus 'à plat' pour te permettre d'utilisé un tableau croisé dynamique et enfin obtenir ce que tu veux.
John
"" a écrit dans le message de news:a1e001c3eb35$aa8d3200$ Ok, je reprends en plus détaillé...
