[VBA EXCEL] AIDE AUX DÉBUTANTS, QUELQUES MORCEAUX DE CODES

Commentaire de Drikce06 le 20/07/2006 16:32:17

Salut tof008, moi j'ai rien à redire, c'est sur que ça peut servir aux débutants. Il n'y a que la mise en forme que j'aime pas trop! lol!. Je me posai une question parce que j'ai jamais mis de tuto mais, ça peut pas faire comme les codes sources où ça te met la mise forme automatiquement ? En tout cas pour les couleurs ?
Je te me 8, parce que c'est toi, mdr!

Commentaire de us_30 le 27/09/2006 22:06:38

Bonsoir TOF008,

JE te pardonne volontier sur la mise en forme, que je sais plus que galère ! Pourvu que cela s'améliore rapidement...

Mais que cela n'empêche pas d'abord te de présenter mes encouragements. Puis mes critiques et idées...

=

Donc, si j'épluche un peu les coquilles ou erreurs...

Dans " Range("A1).Select " > oubli du guillement de fermeture.

Avec : While Not Range("A" & i & "").Value = ""
ou dans tous les autres "Range" du tuto, tu rajoutes inutilement : & ""
En effet, ce dernier ne cause pas de bug, grâce au fait que tu rajoutes... rien, enfin plutôt une chaîne nulle...

Range("A" & i).Value, plus simplement fonctionne parfaitement et est même plus logique. En effet si i=1, alors tout se passe comme si on avait écrit Range("A1").Value

=

Ensuite, quelques remarques sur la méthode.

Dans les codes exemples que tu présentes, il faut faire attention aux références des objets. En effet, utiliser "Cells" est une bonne chose, mais "Cells" tout court, s'applique par défaut à la feuille active. Donc, attention aux catastrophes ! lorsqu'on manipule plusieurs feuilles ou que l'utilisateur peut utiliser plusieurs feuilles.

Pour un tuto (et ses macros), il faut mieux être un peu plus précis, et indiquer l'objet parent.

Par exemple voici une syntaxe plus sur :

Sub test()
Sheets("feuil1").Cells(3, 5).Value = 4
End Sub

permet de mettre la valeur 4 dans la case E3 de la "feuil1". En effet, pour atteindre E3 en partant de A1, il faut descendre 3 lignes, et de 5 colonnes.
Le premier avantage, c'est qu'on ne change pas la sélection courante. Le deuxième avantage, c'est qu'on n'a plus besoin d'utiliser la méthode Select, qui a le gros inconviénient d'être inconfortable pour l'utilisateur puisqu'on change de feuille, de colonne ou autre sous ses yeux (effet de flash), et d'être très longue en temps. En fait, Select ou Selection sont des méthodes ou propriétés, très utilisés par l'enregistreur de macro commande, pour refaire à l'identique les manipulations. Mais il faut une fois, les macro commandes effectuées, les reprendre en supprimant toutes les sélections pour optimiser le code.

Par exemple, pour récuperer une valeur sur une autre feuille (comme tu le proposes) peut se simplifier en rassemblant les objets, avec :

Range("B" & i).Value = Sheets("nb rebut").Range("C" & j).Value

Remarquons que pour arriver à cette ligne de code, on "joue" qu'avec la touche DEL.

Donc, on peut utiliser ce principes  sur presque tous les exemples de code. Par exemple :

Rows("2:3").RowHeight = 25

=

Enfin, pour les bordures, une petite optimisation rapide que je ne détaille pas, consisterait à coder :

For t = 7 To 12
    Range("B3:H" & i).Borders(t).Weight = xlMedium
Next t

parfaitement identique à ce que tu proposes...

Pour essayer ce code, il faut une valeur à "i"... or dans un tuto, c'est moyen...

A mon avis, tu devrais donner une référence précise. Par exemple :

For t = 7 To 12
    Range("B3:H4").Borders(t).Weight = xlMedium
Next t

=

Voilà. Comme tu t'es dis ouvert à la critique, tu as de quoi d'être comblé. Mais je ne doute pas, que tu seras améliorer tout cela... Je te souhait bon courage, et je t'encourage avec un petit 10/10...

Amicalement,
Us.

Commentaire de ChemicalWoRmS le 05/11/2006 16:04:32

on voit bien que c'est pour les débutants lol :p

Commentaire de bertrand1202 le 12/01/2007 20:20:43

bonjour

j ai cree un classeur avec une feuille facturation avec 10 colonnes , je voudrais recuperer ce tableau sur la seconde feuille appelee clients dus ( on recupere tout dans un premier temps puis ensuite on supprime les ligne solde a zero et sous totaux sur la deuxieme feuille .
j ai essaye avec nb=range ..., ca ne marche pas , merci de votre aide

Commentaire de bertrand1202 le 12/01/2007 20:20:48

bonjour

j ai cree un classeur avec une feuille facturation avec 10 colonnes , je voudrais recuperer ce tableau sur la seconde feuille appelee clients dus ( on recupere tout dans un premier temps puis ensuite on supprime les ligne solde a zero et sous totaux sur la deuxieme feuille .
j ai essaye avec nb=range ..., ca ne marche pas , merci de votre aide

Commentaire de lermite222 le 06/04/2007 06:13:36

Bonjour à tous,
Ces quelques parties de code peuvent certainement êtres trés utiles aux débutants, un bon truc quand même pour ajouter des fonctions en VBA. que se soit pour des print, des mises en formes etc.. , faire une macro de l'automatisation que l'ont veux faire
(Outil >> macro >> nouvelle macro , donner un nom >>OK) ensuite effectuer toutes les opérations souhaitées,quand c'est terminé
(outil >> macro >> terminer l'enrégistrement)
Dans la barre d'outil visual basic, cliquer sur le bouton visual basic editor, vous entrez alors dans l'éditeur de VBA, vous pouver retrouver votre macro dans un module et il est alors possible de l'optimiser, de l'indexer et bien plus encore et surtout de connaître la syntaxe exacte.
Voilà.. un petit truc que j'ai employé pendant des années.
Cordialement
lermite222

Commentaire de Kornebrume le 04/10/2007 10:03:29

Bonjour à tous,

ce tutoriel est parfait mais j'aurai aimé savoir comment changer le format d'un cellule.

Le but : avoir le format d'un numéro de téléphone en 0680..... et non pas en 680....., en gros que le 0 ne se fasse pas virer.

Merci à vous.

Bonne journée, Korne

Commentaire de Kornebrume le 05/10/2007 16:33:09

OK merci, hier j'ai trouvé çà (VB2005) : xlSheet.Columns("B").NumberFormat = "@"

Cela formate la cellule (dans mon exemple) en format texte.

Quelqu'un aurait une liste des formats avec les paramètres à passer (à l'instar du format texte et de @).

Merci à vous.

Bonne journée et bon week-end :)

Cordialement, Korne

Commentaire de ToNYDEVIL le 30/10/2007 10:50:06

beaucoup de chose utile, pour quelqu'un qui debarque dans le monde du VBA, comme moi ^^
meme si j'y trouve une precieuse aide, il va falloir chercher encore, continuer comme sa

Commentaire de FreddyONE73 le 24/11/2007 14:44:28

Pour ceux qui cherche à se placer sur la dernière ligne ou colonne, j'ai une manière plus efficace et rapide:
Essayer de le faire avec les raccourcis clavier :
Cela consiste à se placer sur la dernière cellule posible de la FEUILLE (ligne 65536 ou colonne IV(256))
La combinaison [Ctrl] + [flêche haut] ou [Ctrl] + [flêche gauche]
permet de se déplacer directement à la prochaine cellule non vide.....
ce qui donne :

Dim LigneLibre As Integer, ColonneLibre As Integer
    Range("A65536").Select
    Selection.End(xlUp).Select
    LigneLibre = Selection.Row + 1
    Range("IV1").Select
    Selection.End(xlToLeft).Select
    ColonneLibre = Selection.Column + 1
    MsgBox "Prochaine ligne : " & LigneLibre & Chr$(13) & "Prochaine colonne : " & ColonneLibre

Commentaire de FreddyONE73 le 24/11/2007 14:53:48

Ce qui donne en plus propre (comme le suggère us_30) :

Dim LigneLibre As Integer, ColonneLibre As Integer
    LigneLibre = Range("A65536").End(xlUp).Row + 1
    ColonneLibre = Range("IV1").End(xlToLeft).Column + 1
    MsgBox "Prochaine ligne : " & LigneLibre & Chr$(13) & "Prochaine colonne : " & ColonneLibre

notez que la cellule qui était sélectionnée rest la même

Commentaire de petitmoustique le 02/12/2007 11:28:24

Je te mets 9/10 car ce tuto est bien  mais il peut etre amélioré

Commentaire de beuzzz59 le 10/03/2009 10:20:58

Bonjour,
Je suis nouveau dans la programmation VB et j'aimerais selectionné la derniere ligne libre afin d'y coller une ligne existante.

Merci d'avance

Commentaire de MAGICIENMATT le 09/06/2009 08:56:13

Bonjour, j'ai une application ou je suis bloqué, Je doit envoyer dans une cellule de fauille excel une ligne de titre, pour ca c'est ok mais il faut que celle ci je la transforme en liens hypertexte si quelqu'un peut m'aider

Commentaire de Getdaone le 20/01/2010 17:27:30

Je cherchais à faire la conversion d'une adresse de colonne exprimée en lettres vers une adresse exprimée en numérique. Je ne sais pas s'il y a plus simple mais ça a le mérite de fonctionner !!!

Private Function Convert_ColumnLetters_To_ColumnIndex(ByVal sColumnLetters As String) As Integer
    Dim iColumnIndex, indCurLettre, iCurLettreCode As Integer
    
    iColumnIndex = 0
    iCurLettreCodeVal = 0
    
    sColumnLetters = Format(sColumnLetters, ">")
    If Len(sColumnLetters) > 2 Then
        MsgBox "La colonne de fin doit être inférieure à IV", vbExclamation, "Erreur de paramètres !"
        Convert_ColumnLetters_To_ColumnIndex = -1
        Exit Function
    End If
    
    For indCurLettre = 1 To Len(sColumnLetters)
        iCurLettreCodeVal = Asc(Mid(sColumnLetters, indCurLettre, 1))
        
        ' L'adresse de la cellule est sur deux caractère
        If Len(sColumnLetters) > 1 Then
            
            ' On limite la cellule de fin à IV
            If Len(sColumnLetters) = 2 And _
                    indCurLettre = 1 And _
                    iCurLettreCodeVal > Asc("I") Then
                
                MsgBox "La colonne de fin doit être inférieure à IV", vbExclamation, "Erreur de paramètres !"
                Convert_ColumnLetters_To_ColumnIndex = -1
                Exit Function
            ElseIf Len(sColumnLetters) = 2 And _
                        indCurLettre = 2 And _
                        iColumnIndex >= (Asc("I") - Asc("A") + 1) And _
                        iCurLettreCodeVal > Asc("V") Then
                    
                    MsgBox "La colonne de fin doit être inférieure à IV", vbExclamation, "Erreur de paramètres !"
                    Convert_ColumnLetters_To_ColumnIndex = -1
                    Exit Function
            End If
            
            iColumnIndex = 26 * iColumnIndex + (iCurLettreCodeVal - (Asc("A") - 1))
        
        ' L'adresse de la cellule est sur un caractère
        Else
            iColumnIndex = iCurLettreCode - (Asc("A") - 1)
        End If
        
        ' La lettre en cours de traitement doit être située entre 'A' et 'Z', les autres caractères ne sont pas autorisés en adresse de cellule
        If iCurLettreCode < Asc("A") Or _
                iCurLettreCodeVal > Asc("Z") Then
            
            MsgBox "La colonne de fin doit être exprimée en lettres", vbExclamation, "Erreur de paramètres !"
            Convert_ColumnLetters_To_ColumnIndex = -1
            Exit Function
        End If
    Next indCurLettre
    
    Convert_ColumnLetters_To_ColumnIndex = iColumnIndex
End Function

Commentaire de philguejr le 01/12/2010 10:06:00

Bonjour à tous,
J'ai un problème de débutant et je bute dessus depuis plusieurs jours.
J'ai un classeur avec 2 feuilles la première sous forme de formulaire et  la seconde sous forme de tableau qui reprend les données saisies sur le formulaire (la première feuille donc).
Je voudrai sous la forme d'une macro vérifier que les données saisies dans le formulaire (feuille1) n'existent pas déjà dans le tableau (feuille2).
Pourriez-vous s'il vous plaît me guider, je ne trouverai pas la solution tout seul.
D'avance merci.

Commentaire de lexsty le 21/10/2011 14:14:20

Merci
Je voulais justement me servir de VBA et ce totorial va m'aider.                  (10/10)