Discussion :

[rjl]

Bonjour à tous,
C'est vrai, il y a bien longtemps que je touchais plus à Access qu'aux VBA Excel... J'ai repris mes anciennes appli, j'ai visualisé des tutos mais là, je ne vois pas le bout !!
J'ai fait un tri qui a fonctionné quand j'ai pris une copie avec les seules valeurs supprimant toutes les formules mais c'est stabilisé et OK.
Maintenant, je dois ramener les valeurs triées dans une partie d'une autre feuille ("CompteRésultat")

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
Sub TriCalcul()
Dim x, y, lim As Integer:
Dim VarK, VarI, VarL As Single:
Dim VarJ As String
 
' TriCalcul Macro
' Macro enregistrée le 13/12/2010 par RJL
' Touche de raccourci du clavier: Ctrl+C
'===> TRI
  ActiveSheet.Unprotect Password:="FD22"
    Range("O1:R41").Select
    Selection.Copy
    Range("I1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
    Selection.Sort Key1:=Range("K1"), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
'===> CALCULS/AFFECTATIONS
    lim = Range("G4").Value
    For x = 1 To x = lim
    Range("K&x").Select
    VarK = Range("K1").Value
'    If (VarK > 0) Then
         VarI = Range("I1").Value
         VarJ = Range("J1").Value
         VarL = Range("L&x").Value
'        Range("CompteRésultat.A&(10+x)").Value = VarI
         Range("CompteRésultat.B&(10+x)").Value = VarJ

J'ai du passer en commentaire le test de cette VarK positif et le EndIf correspondant ; au point d'arrêt que j'ai ajouté, mes variables VarK, x et lim, par exemple sont toutes déclarées par les espions <Hors du contexte> : Empty voire Empty/Variant même pour une variable déclarée en numérique !
Noter encore que, toujours pour simplifier et y voir clair (mais ça n'a pas marché), j'ai transformé des range par exemple (K+x) ou (J+x) en K1 ou J1.

Je sais que mon petit problème (important problème pour moi) ne va pas résister bien longtemps à vos compétences et vous en remercie par avance.
Ma solution peut sembler complexe mais concerne une compta simple pour 150 clubs dont les trésoriers peuvent ajouter des n° de comptes et leurs libellés.

Encore Merci RJL0c13

[alainb]

Bonsoir,
Je cherche la (ou les) question dans ton post
est-ce "Maintenant, je dois ramener les valeurs triées dans une partie d'une autre feuille ("CompteRésultat")" ?
Alain

[rjl]

Bonsoir Alain et merci de cette question...
Dans la précipitation, on rate toujours l'essentiel.
Quelle erreur (ou quelles erreurs) ai-je fait pour que mes variables restent vides ?
Accessoirement, ma méthode de remplissage de mon autre feuille (les 2 dernières instructions est-elle correcte ?
Merci
RJL0c13

[Bugzy1963]

Salut

Pour commencer

Au lieu d'écrire

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Range("K&x").Select

essai

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Range("K" & x).Select

[rjl]

Bonsoir Bugzy,
C'est sympa de voir le Québec répondre...
Je venais dire que j'étais arrivé à bout de mon problème...
J'en ai consulté des forums, tuto et mails...
Effectivement, j'avais corrigé ce Range("K" & x).Select !
J'avais surtout un bête For x = 1 To x = lim
au lieu de For x = 1 To lim !
Quand j'ai repéré et corrigé celui-là, ça m'a donné les valeurs des espions car la tête de boucle déraillant, je n'avais rien, aucune valeur... et ne comprenais pas plus... !
Voila donc le problème résolu mais c'est dur de se remettre dans le VBA après quelques années de divagation !
Merci à tous pour votre appui.
RJL0c14

[tedo01]

Bonjour,
Petit complément :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Dim VarK, VarI, VarL As Single

définit VarK et VarI comme Variant, et seulement VarL comme Single. Pour avoir 3 Single il faut écrire

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Dim VarK As Single, VarI As Single, VarL As Single

Bonne continuation !

[rjl]

Bonjour tedo01,
Merci de cette précision que j'avais perdu de vue.
C'est le genre d'ajout important car, à petite dose, on mémorise toujours mieux.
Probable que dans ma dernière version, j'ai toujours ce type de problème et, pour le principe, vais les corriger même si ça a peu d'impact.
@+ RJL0c14