vba 2pb

Question

Bonjour,
j ai 2 petit soucis avec ma macro vba excel.
je génère un nouveau fichier et sur ce nvo je veux creer trois nouvel colonne qui st simplement un left () d'une autre colonne.
j arrive a le faire sous excel en metant gaucha(a2,5) (c'est une chaine de6 caractères à l'origine) mais je n'arrive pas a la générer automatiquement.
le deuxieme point g trouvé la fonction subtotal() mais je sais pas comment elle fonctionne :
Selection.FormulaR1C1 = "=SUBTOTAL(9,R[-" & nb_lignes & "]C:R[-1]C)"
qu'est ce que le neuf
et RC?
nb_ligne est ma variable mais pk on met d moins?
merci d'avance

Bidouilleu_R · Answer

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.

ptikiki · Answer

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

Bidouilleu_R · Answer

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....

Bidouilleu_R · Answer

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.

ptikiki · Answer

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

Bidouilleu_R · Answer

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

Bidouilleu_R · Answer

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

ptikiki · Answer

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

Bidouilleu_R · Answer

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+

Bidouilleu_R · Answer

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

ptikiki · Answer

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

Bidouilleu_R · Answer

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

Vba 2pb

12 réponses

Discussions similaires

Newsletters