Vba 2pb

Bonjour,

pour la deuxième question c'est facile avec l'aide

ça donne ça!

1 101 MOYENNE
2 102 NB
3 103 NBVAL
4 104 MAX
5 105 MIN
6 106 PRODUIT
7 107 ECARTYPE
8 108 ECARTYPEP
9 109 SOMME 10 110 VAR
11 111 VAR.P

le sous-total contient une somme. Mais je crois que tu viens de découvrir quelquechose.

pour "je veux créer trois nouvelles colonnes qui sont simplement un left () d'une autre colonne. "
puisque la fonction left est nommée, il s'agit d'un code vba
pour mettre un titre dans une cellule: on écrit range("A1").value=left(range("B1",5))
la cellule A1 contiendra le 5 premiers caractères en partant de la gauche de la cellule B1.

Mon probleme n'est pas résolu
Range("AF").Value = Left(Range("a1"), 5)
Si j'ai bien compris en af je devrai avoir les 5 premier caractere de A
la methode ' range' de l'objet '_global' a echoue apparait

Mon probleme n'est pas résolu
Ecris comme cela c'est normal
Range("AF").Value = Left(Range("a1"), 5)
Si j'ai bien compris en af je devrai avoir les 5 premier caractere de A
la methode ' range' de l'objet '_global' a echoue car range n'était pas défini....

Range("AF1").Value = Left(Range("A1"), 5)

la méthode range(ligne,colonne) fait référence à une lettre et à un chiffre.
A moins que je n'ai pas compris ce que tu souhaites faire....

il vaudrait mieux préciser les dimension de ton tableau
et j'ajouterai que ta demande n'étais pas claire pour moi.

place ce code dans un module

Sub essai()

Dim nligne As Integer
Dim i As Integer
Dim C As Variant
i=0

nligne = Range("A1").CurrentRegion.Rows.Count ' le début de la base
For Each C In Range("f1:F" & nligne)
C.Value = Left(Range("A1").Offset(i, 0), 5) ' permet d'écrire sur la ligne suivante
' A1 represente la cellule que tu copies ( on extrait 5 caractères avec left
i = i + 1 ' ligne suivante
Next ' cellule suivante

End Sub

dis moi si ça marche.

Sub Macro2()

Application.ScreenUpdating = False

date_arrete = InputBox("Quelle est le PLCR utilisé? (format JJ-MM-AAAA)")

Sheets("tout").Select
Range(("A1"), Range("A1").End(xlDown)).Select
nb_lignes = Selection.Count
Range("AF1").Value = Left(Range("A1"), 5)

Sheets("Détail").Select
Range("C11", Range("C11").End(xlDown)).Select

For Each cell In Selection

Sheets("Détail").Select
num_compte = ActiveCell
sens = ActiveCell.Offset(0, 5)
solde = ActiveCell.Offset(0, 15)

Sheets("tout").Select

'sélection du numéro de compte
If Len(num_compte) = 2 Then
Selection.AutoFilter Field:=1, Criteria1:=num_compte
ElseIf Len(num_compte) = 3 Then
Selection.AutoFilter Field:=1, Criteria1:=num_compte
ElseIf Len(num_compte) = 4 Then
Selection.AutoFilter Field:=1, Criteria1:=num_compte
ElseIf Len(num_compte) = 5 Then
Selection.AutoFilter Field:=1, Criteria1:=num_compte
ElseIf Len(num_compte) = 6 Then
Selection.AutoFilter Field:=1, Criteria1:=num_compte
End If

Range("AD" & nb_lignes + 1).Select
Selection.FormulaR1C1 = "=SUBTOTAL(9,R[-" & nb_lignes & "]C:R[-1]C)"
solde_debit = Selection.Value

Range("AE" & nb_lignes + 1).Select
Selection.FormulaR1C1 = "=SUBTOTAL(9,R[-" & nb_lignes & "]C:R[-1]C)"
solde_credit = Selection.Value

ActiveSheet.ShowAllData

Sheets("Détail").Select

If sens = "D+" Or sens = "D-" Then
ActiveCell.Offset(0, 11) = solde_debit
ElseIf sens = "+C" Or sens = "-C" Then
ActiveCell.Offset(0, 11) = solde_credit
End If
ActiveCell.Offset(0, 14) = Len(num_compte)
ActiveCell.Offset(1, 0).Select
Next

ActiveWorkbook.SaveAs Filename:= _
"L:\RL " & date_arrete & " .xls", FileFormat:= _
xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
, CreateBackup:=False

MsgBox ("Le calcul est terminé!")

End Sub

je t ai mis tout monn code
mon tableau de la feuille "tout fais 16400lignes et va jusqua la colonne AD
j ai mis un autre post car j ai d soucis avec autofilter si tu veux
merci
caro

je n'ai plus le temps je regarde demain ou je laisse un autre te conseiller

Bonjour,

je te suggère de modifier ton code pour éviter un risque d'erreur Important
tu fais référence à une zone sélectionnée puis plus loin tu en sélectionnes une autre.
du fait qu'il s'agit d'une collection (for each tu pourrais avoir une erreur ou des lignes non traitées)
je te propose ceci.
Explique ton deuxième problème.

Sheets("Détail").Select
'Range("C11", Range("C11").End(xlDown)).Select ' ici nomme la zone
Range("C11", Range("C11").End(xlDown)).name="MaZone"

'For Each cell In Selection ' remplacé par
For Each cell In range("MaZone") ' comme cela tu feras toujours référence à la même Zone

Sheets("Détail").Select
num_compte = ActiveCell
sens = ActiveCell.Offset(0, 5)
solde = ActiveCell.Offset(0, 15)

Sheets("tout").Select

'sélection du numéro de compte
If Len(num_compte) = 2 Then
Selection.AutoFilter Field:=1, Criteria1:=num_compte
ElseIf Len(num_compte) = 3 Then
Selection.AutoFilter Field:=1, Criteria1:=num_compte
ElseIf Len(num_compte) = 4 Then
Selection.AutoFilter Field:=1, Criteria1:=num_compte
ElseIf Len(num_compte) = 5 Then
Selection.AutoFilter Field:=1, Criteria1:=num_compte
ElseIf Len(num_compte) = 6 Then
Selection.AutoFilter Field:=1, Criteria1:=num_compte
End If

Range("AD" & nb_lignes + 1).Select
Selection.FormulaR1C1 = "=SUBTOTAL(9,R[-" & nb_lignes & "]C:R[-1]C)"
solde_debit = Selection.Value

Range("AE" & nb_lignes + 1).Select
Selection.FormulaR1C1 = "=SUBTOTAL(9,R[-" & nb_lignes & "]C:R[-1]C)"
solde_credit = Selection.Value

ActiveSheet.ShowAllData

Sheets("Détail").Select

If sens = "D+" Or sens = "D-" Then
ActiveCell.Offset(0, 11) = solde_debit
ElseIf sens = "+C" Or sens = "-C" Then
ActiveCell.Offset(0, 11) = solde_credit
End If
ActiveCell.Offset(0, 14) = Len(num_compte)
ActiveCell.Offset(1, 0).Select

Next

je crois que tu as raison ma selection pour l'autofilter je crois que ça prend pas la bonne page mais je c pas comment faire

je suis content car de mon côté
je testé une structure avec un filtre comme le tiens
et ça marché!

un conseil, quand tu fais des filtres successifs il est souvent utile d'enlever le filtre puis
de le remettre.

A+

1) oui il est possible de faire un filtre sur une feuille entière.

Fais attention à la quantité de donnée.

2) faire un filtre d'un filtre cela s'appelle un deuxième critère n'est-ce pas.

ex:
fruit qte region
poire 12 est
pomme 100 ouest
raisin 50 sud
raisin 120 sud

un filtre sur Qte (field2) avec un critère >51 extrait la ligne 2 et 4 (ouest et sud)
si tu rajoute field 3 avec comme critère sud seule la ligne 4 sera extraite.

lorsque tu as beaucoup de données à extraire en cascade il est interessant de voir les
tableaux croisés dynamiques.

Roger

je sais pas mes servir des tcd lol mais bon
a oui tu m 'a conseillé d enlever les filtres mais je ne sais pas faire.
bisous caro

salut,
il suffit d'écrire

Selection.AutoFilter

en c'est une bascule avec ou sans
Donc quand tu as plus besoin du filtre tu l'enlèves

pour le tableau croisé dynamique je te conseillerai d'y jeter un oeil
un site qui explique bien ( mon point de vue personnel ) www.excelabo.net

bon courage
A+
R