Debutante code vba

Bonjour,
Je cherche a ecrire quelque chose en vba, J'ai mon tableau et dans une autre feuille je voudrais faire en sorte qu'il m'ecrive le nom et la ligne ou la date du jour >= a ma Date Limite (colonne D) ET que ma ligne ne soit pas colorié puis je met ma condition.
J'ai déjà parcouru et lu beaucoup de pages mais etant novice ce n'est pas facile.
Dans un premier temp je cherche a comprendre pour la couleur que dois je lui dire si ma ligne n'est pas colorié?

voici le début de mon code, je sais qu'il y'a des fautes, ne me jugez pas aidez moi svp

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23

'Sub est le debut de la procedure Sub Rappel() 'Dim est une variable Dim Onglet As Worksheet Dim DateJour, DateLimite Dim Ligne, Couleur   'DateJour = A la date du systeme DateJour = "28/02/2019" DateLimite = Range("D8").Value Ligne = Rows(5) Couleur = Cells.Interior.Color     'For Each Onglet In Worksheets 'Couleur = 0 = vrai If DateJour >= DateLimite And Couleur = False Then MsgBox "Vrai" Else MsgBox "Faux" End If 'Next End Sub

---

Et alors dans un 2ème temp j'aimerais qui lise ma ligne.
J'ai fait sur un autre module afin de le comprendre avant de l'ajouter a mon code, j'ai trouvé ceci :
QUe signifie ce F5 dans numero de ligne

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Sub TestLigne() 'Déclaration des variables Dim nom, prenom, age, numero_ligne As Integer, nb_lignes nb_lignes = WorksheetFunction.CountA(Range("A:A")) 'Fonction NBVAL   'Valeurs des variables numero_ligne = Range("F5") + 1 nom = Cells(numero_ligne, 1) prenom = Cells(numero_ligne, 2) age = Cells(numero_ligne, 3)   'Boîte de dialogue MsgBox "Num = " & numero_ligne & Chr(10) & "Nom = " & nom & Chr(10) & "Prenom = " & prenom & Chr(10) & "Age = " & age & Chr(10) & nb_lignes End Sub

---

Il avait l'aire de fonctionner, j'en comprend à peu près les lignes, ce que je ne comprend pas c'est que vu que j'ai mis un titre et fusionner des colonnes il faut qu'il lise plus loin, à partir de la ligne 4. Que dois je changer?

Bonjour,

Citation:

---

Envoyé par ashpo4

Bonjour,
Je cherche a ecrire quelque chose en vba, ...
J'ai déjà parcouru et lu beaucoup de pages mais etant novice ce n'est pas facile.

---

C'est toujours difficile de s'en sortir en piochant des infos et des codes ça et là.

Je te conseille de commencer par suivre entièrement un cours d'auto-formation, c'est un peu long mais ça évite beaucoup de galères.
Voici un excellent cours gratuit pour débutants (et plus si affinités) : https://bidou.developpez.com/article/VBA/

Bonsoir,
On m'a déjà donné ce cours, j'y ai jeté un oeil et lu ce qui pouvait m’intéresse mais justement il y'a des syntaxes ou autres que je ne comprend pas.
J'aimerais que quelqu'un m'aide a ameliorer mon code et me dise si je suis sur la bonne voie et non toujours me donné des cours à lire.

Merci

Citation:

---

Envoyé par ashpo4

On m'a déjà donné ce cours, j'y ai jeté un oeil et lu ce qui pouvait m’intéresse

---

Je trouve ce cours très bien fait mais comme je t'ai dit précédemment, il ne s'agit pas d'y jeter un œil mais il faut le suivre entièrement en partant du début. Tout y est clairement expliqué mais si tu brules les étapes c'est normal que certaines choses t’échappent !
Il est relativement condensé, il faut donc y aller pas à pas, chaque mot a son importance.

Bonjour,

Je me permet de rebondir sur ce que dit Patrice (:coucou:).

Ayant appris par moi même le VBA, les cours de ce type sont très important. Ils te permettent d'apprendre les conventions et ainsi comprendre plus facilement les codes que tu trouves ici et là.

Sans acquérir les bases tu vas rapidement en avoir marre de chercher les syntaxes exactes ! Ce qui serait dommage

En ce qui concerne ton code, tu devrais utiliser l'enregistreur de macro. Il te donnera une bonne partie de ce que tu as besoin. Certes, il te faudra faire une passe dessus pour l'épurer mais ça fonctionnera.

Pour le range("F5"), il sert à donner une valeur à ta variable numero_ligne.

Bonjour,
Je comprend bien ce que vous me dites mais il y'a certaines informations que je ne comprend pas, et si personne ne sait me l'expliquer je ne pourrais tout de meme pas avancer, je n'ai pas une logique super simple, je demande juste qu'on m'aide un peu a partir de mon code afin de savoir si je suis sur la bonne voie.

Trystan merci,

Enfin quelqu'un qui répond un peu à ma question, comme je l'ai dit je sais qu'il faut que je lise un peu le cours mais trop d'informations et après je ne suis pas, et ma logique est très faible. Est ce que je suis bien partie sur mon code ou non?
J'ai déjà entendu parler de l'enregistreur de macro, comment l'utilise t on?

Citation:

---

Envoyé par Trystan441

Bonjour,

Je me permet de rebondir sur ce que dit Patrice (:coucou:).

Ayant appris par moi même le VBA, les cours de ce type sont très important. Ils te permettent d'apprendre les conventions et ainsi comprendre plus facilement les codes que tu trouves ici et là.

Sans acquérir les bases tu vas rapidement en avoir marre de chercher les syntaxes exactes ! Ce qui serait dommage

En ce qui concerne ton code, tu devrais utiliser l'enregistreur de macro. Il te donnera une bonne partie de ce que tu as besoin. Certes, il te faudra faire une passe dessus pour l'épurer mais ça fonctionnera.

Pour le range("F5"), il sert à donner une valeur à ta variable numero_ligne.

---

Bonjour à vous,

J'apporte ma modeste contribution à ce qui a été exposé précédemment et que je partage bien évidemment.
En complément
Ci-joint des liens vers certains tutoriels de base (dont celui cité précédemment) et espaces documentaires.
Quant aux formulaires, je ne peux qu'indiquer les tutoriels inclus dans l'espace de Silkyroad.

BOnjour,
Le lien pour le tutoriel ne fonctionne pas, il me dit site inaccessible, je dois faire quelque chose en particulier?

Citation:

---

Envoyé par MarcelG

Bonjour à vous,

J'apporte ma modeste contribution à ce qui a été exposé précédemment et que je partage bien évidemment.
En complément
Ci-joint des liens vers certains tutoriels de base (dont celui cité précédemment) et espaces documentaires.
Quant aux formulaires, je ne peux qu'indiquer les tutoriels inclus dans l'espace de Silkyroad

---

Salut,

Essaie
Silkyroad

Merci

Citation:

---

Envoyé par MarcelG

Salut,

Essaie
Silkyroad

---

Citation:

---

Enfin quelqu'un qui répond un peu à ma question

---

On à tous répondu à ta question, en te redirigeant vers des tutoriels qui te permettront de corriger ton code et de le poursuivre

Citation:

---

J'ai déjà entendu parler de l'enregistreur de macro, comment l'utilise t on?

---

Je te laisse lire ça (oui encore de la lecture mais il n'y a que comme ça qu'on apprend) :
https://fauconnier.developpez.com/tu...istreur-macro/

Dans les grandes lignes, tu lances l'enregistreur, tu effectues les actions que tu souhaites sur ta feuille Excel, et tu l'arrêtes. Il va te fournir un code tout fait mais bourré de lignes "inutiles". A toi ensuite de tester en en supprimant certaines pour voir ce qu'il se passe.

Citation:

---

ma logique est très faible.

---

La logique ça se travail. Tout est une question d'acquérir les bases du langage.

Citation:

---

comme je l'ai dit je sais qu'il faut que je lise un peu le cours mais trop d'informations

---

Créé toi un répertoire sur le support que tu préfères (Excel, Word, Papier) pour rassembler toutes ces informations.

Citation:

---

Créé toi un répertoire sur le support que tu préfères (Excel, Word, Papier) pour rassembler toutes ces informations.

---

Parfaitement.
Pour ma part, depuis 10 ans, j'entretiens ses sous-répertoires par type de problématique (les fichiers, les Formulaires, l'objet Range).
Ils contiennent des classeurs exemples ou des documents Word reportant les codes dignes d'intérêt pour ma modeste culture.
Ils ont en commun l'information quant à l'URL d'origine.
Entretenir ce genre d'espace documentaire constitue un moyen de progression parmi tous les autres.

Bonjour à tous,

Il est évident que lorsque qu'une personne demamde l'aide et qu'elle respecte les règles du forum que l'on va l'aider avec plaisir.

tout d'abord, ne nous en veux pas de vouloir t'apprendre à pêcher plutôt que te donner le poisson tout cru

cependant je vais quand même te donner des conseils

pour éviter de se perdre dans tes différentes demandes on va commencer par ton premier post

Code:

---

1 2 3 4 5 6

Sub Rappel() 'Dim est une variable Dim Onglet As Worksheet Dim DateJour, DateLimite Dim Ligne, Couleur ...

---

premièrement DIM n'est pas une variable !
DIM permet de déclarer une variable avec un type de variablecomme tu l'a fait avec ton premier DIM

Code:

---

Dim Onglet As Worksheet

---

si tu ne mets pas de type c'est sous entendu que c'est de type variant c'est à dire que tu réserves une grosse place mémoire pour rien
surtout que les deux dates DateJour, DateLimite doivent être déclarer comme type de date c'est plus facile pour comparer et faire des calculs

deuxièmement
tu as fais une capture écran ou tu montres des dates sous forme JJ/MM est-ce bien des dates mise en forme ou du texte ?

merci de préciser

A bientôt

Ben en gros j'ai demandé a quoi servait F5 tu m'as repondu, bon pour l'aide sur mon code et savoir si je suis sur la bonne voie personne ne veut me dire pour que je puisse avancer :/

D'accord je vais essayé, ce que tu me dis avec le macro, je reviens vers toi si soucis.
Merci

Citation:

---

Envoyé par Trystan441

On à tous répondu à ta question, en te redirigeant vers des tutoriels qui te permettront de corriger ton code et de le poursuivre



Je te laisse lire ça (oui encore de la lecture mais il n'y a que comme ça qu'on apprend) :
https://fauconnier.developpez.com/tu...istreur-macro/

Dans les grandes lignes, tu lances l'enregistreur, tu effectues les actions que tu souhaites sur ta feuille Excel, et tu l'arrêtes. Il va te fournir un code tout fait mais bourré de lignes "inutiles". A toi ensuite de tester en en supprimant certaines pour voir ce qu'il se passe.



La logique ça se travail. Tout est une question d'acquérir les bases du langage.



Créé toi un répertoire sur le support que tu préfères (Excel, Word, Papier) pour rassembler toutes ces informations.

---

Je reviens juste vers toi pour savoir si avec le macro on peut faire la fonction Si (ex si ma ligne est surligné).

Et alors juste dans mon code TestLigne puis je mettre le nom de ma variable dans un Range
Ex: Range(prenom).copy

Citation:

---

Et alors juste dans mon code TestLigne puis je mettre le nom de ma variable dans un Range

---

Qu'est ce que tu cherches à mettre exactement dans cette variable ? Je te pose cette question car Range permet de sélectionner, une cellule ou une zone de plusieurs cellules.

Pour la fonction Si, la syntaxe est faite c'est juste au niveau du macro que je ne savais pas si on pouvait le tester.

J'ai d'abord cherché juste a mettre ce qui se trouve dans une cellule pour voir si ca fonctionne, mais c'est pour au final mettre toutes les infos de ma ligne.

Si tu souhaites traiter toutes les lignes de ton tableau alors il va falloir que tu passes par une boucle !

Mais une question avant tout : As-tu essayé de passer par une Mise En Forme Conditionnelle plutôt que par VBA ?

Oui ma boucle est en attente j'essaye d'abord de tester sur une ligne.
La mise en forme conditionnelle c'est faire la fonction? si c'est ce la cas oui j'ai essayé mais je n'arrive pas a m'exprimer.

SI j'ai fait le vba c'est parce qu'en suite il y'a le copier-coller .

Citation:

---

Envoyé par Trystan441

Si tu souhaites traiter toutes les lignes de ton tableau alors il va falloir que tu passes par une boucle !

Mais une question avant tout : As-tu essayé de passer par une Mise En Forme Conditionnelle plutôt que par VBA ?

---

Pour la Mise en Forme Conditionnelle

https://support.office.com/fr-fr/art...b-f1951ff89d7f

Par contre, tu devrais réellement passer du temps à te documenter sur Excel et VBA avant d'aller plus loin. Tu gagneras du temps.

Je viens de regarder pour la mise en forme mais je ne pense pas que c'est ce que je cherche.
Ici en 1er j'avais fait ma condition pour :
Si "La date du jour" > = "A ma colonne D, ma date Limite" ET "Date Limite" n'est pas colorié alors je fais ma condition.
MAis je ne trouve pas comment lui dire ce n'est pas colorié qu'elle valeur.

Citation:

---

Envoyé par Trystan441

Pour la Mise en Forme Conditionnelle

https://support.office.com/fr-fr/art...b-f1951ff89d7f

Par contre, tu devrais réellement passer du temps à te documenter sur Excel et VBA avant d'aller plus loin. Tu gagneras du temps.

---

Re bonsoir,

Je reviens ici car je viens de faire un code, qui n'est peut etre pas claire mais que je comprend.
Donc j'ai fait en sorte que si La date du jour >= La date limite (colonne D) Alors il me copie et colle la ligne dans l'autre feuille
sauf qu'il ne fait pas ce que je lui dit, bien evidemment, il me recopie les 3 premières lignes et saute la ligne 9. Qui peut me dire mon erreur?
Merci

Code:

---

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 31 32 33 34 35 36 37 38 39 40 41

'Sub est le debut de la procedure Sub Rappel() 'Dim est une variable Dim Nom, numero_ligne, DateEnvoi, NomLot, Total, Rappel Dim Onglet As Worksheet Dim DateJour, DateLimite Dim Cible, Cpt   'DateJour = A la date du systeme DateJour = Date Couleur = ActiveCell.Font.Color nb_lignes = WorksheetFunction.CountA(Range("A:A")) - 2 'Fonction NBVAL Cible = "Feuil1" Cpt = 6 Nom = Range("A1").Value   'For Each Onglet In Worksheets While Cpt <= 12   DateLimite = Range("D" & Cpt).Value numero_ligne = Range("F5") + Cpt DateEnvoi = Format(Cells(numero_ligne, 1), "dd/mm") NomLot = Cells(numero_ligne, 2) Total = Cells(numero_ligne, 3) Rappel = Format(Cells(numero_ligne, 4), "dd/mm")   If DateJour >= DateLimite Then   Range("A1").Copy Worksheets(Cible).Range("A" & Cpt) Cells(numero_ligne, 1).Copy Worksheets(Cible).Range("B" & Cpt) Cells(numero_ligne, 2).Copy Worksheets(Cible).Range("C" & Cpt) Cells(numero_ligne, 3).Copy Worksheets(Cible).Range("D" & Cpt) Cells(numero_ligne, 4).Copy Worksheets(Cible).Range("E" & Cpt)   Cpt = Cpt + 1 Else Cpt = Cpt + 1 End If Wend 'Next End Sub

---

Bonjour,

Comme on te l'a fortement conseillé dans un post plus haut, type tes variables mais avant tout, fais en sorte qu'elles soient déclarées de façon explicite en cochant la case "Déclaration des variables obligatoire" dans le menu "Outils" --> "Option..." onglet "Éditeur". A l'ouverture des classeurs par la suite, il sera inscrit "Option Explicit" en tête des tous les modules quel que soit leur type et ceci pour t'éviter de t'arracher les cheveux dans bien des cas lors de débogages !

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Dim DateJour As Date Dim DateLimite As Date Dim DateEnvoi As Date Dim Nom As String Dim NomLot As String Dim Rappel As String Dim Cible As String Dim Total As Double Dim Cpt As Long Dim Couleur As Long Dim nb_lignes As Long Dim numero_ligne As Long

---

Tu affectes des valeurs à des variables dans ta boucle mais tu ne les utilises pas, pourquoi ?

Code:

---

1 2 3 4 5 6 7

DateLimite = Range("D" & Cpt).Value numero_ligne = Range("F5") + Cpt DateEnvoi = Format(Cells(numero_ligne, 1), "dd/mm") NomLot = Cells(numero_ligne, 2) Total = Cells(numero_ligne, 3) Rappel = Format(Cells(numero_ligne, 4), "dd/mm")

---

Bonjour,
J'ai voulu les utiliser mais je n'ai pas réussi, j'ai voulu faire

Code:

---

Range(NomLot).Copy

---

Merci

Citation:

---

Envoyé par Theze

Bonjour,
Tu affectes des valeurs à des variables dans ta boucle mais tu ne les utilises pas, pourquoi ?

Code:

---

1 2 3 4 5 6 7

DateLimite = Range("D" & Cpt).Value numero_ligne = Range("F5") + Cpt DateEnvoi = Format(Cells(numero_ligne, 1), "dd/mm") NomLot = Cells(numero_ligne, 2) Total = Cells(numero_ligne, 3) Rappel = Format(Cells(numero_ligne, 4), "dd/mm")

---

---

Bonsoir,

Comment dire si ma cellule est surligné? Je ne peux pas dire
If couleur = True

Merci

Bonjour,

Un petit test sur la cellule A1, en modifiant la couleur de fond tu auras des messages différents selon le cas :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23

Sub Test()   Dim Couleur As Long   'couleur rouge Couleur = RGB(255, 0, 0)   'test sur cellule A1 If Cells(1, 1).Interior.Color = Couleur Then   MsgBox "Ok, c'est la bonne couleur !"   ElseIf Cells(1, 1).Interior.Color <> 16777215 Then   MsgBox "La cellule est colorée mais ce n'est pas la bonne couleur !"   Else MsgBox "La cellule n'est pas colorée !"   End If   End Sub

---

Si l'intérieur de A1 est rouge, le message sera "Ok, c'est la bonne couleur !", si A1 est colorée avec une autre couleur que rouge, le message sera "La cellule est colorée mais ce n'est pas la bonne couleur !" et si A1 ne contient aucune couleur, le message sera "La cellule n'est pas colorée !"
Si tu veux savoir la valeur de la couleur (en Long) d'une cellule, tu peux faire :

Code:

---

1 2 3 4

Sub QuelleCouleur() Debug.Print ActiveCell.Interior.Color End Sub

---

le résultat sera inscrit dans la fenêtre d'exécution (Ctrl+G) ou tu peut le faire directement dans cette fenêtre en faisant précéder l'instruction d'un point d'interrogation :
?activecell.Interior.Color
que tu valide par la touche Entrée !

Merci, ici je ne sais pas qu'elle sera la couleur justement mais j'ai fait l'inverse si la case n'est pas colorié.

Il ne me reste plus grand chose a testé, si tu sais m'aider.
1) Dans mon tableau, en A1 j'ai utilisé une formule trouvé sur le net pour qu'il récupère le nom mis dans mon onglet, seulement quand je recopie dans l'autre feuille, ben il me fait la même chose et ne m'indique pas le nom copié. Comment garder le nom et pas la formule?

2) Dans ma condition, quand il lit une ligne qui ne doit pas être recopié, dans ma feuille de récap il saute une ligne.

J'espère que je me suis bien exprimé. Merci

Citation:

---

Envoyé par Theze

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Sub Test() Dim Couleur As Long 'couleur rouge Couleur = RGB(255, 0, 0) 'test sur cellule A1 If Cells(1, 1).Interior.Color = Couleur Then MsgBox "Ok, c'est la bonne couleur !" ElseIf Cells(1, 1).Interior.Color <> 16777215 Then MsgBox "La cellule est colorée mais ce n'est pas la bonne couleur !" Else MsgBox "La cellule n'est pas colorée !" End If End Sub

---

---

Bonjour Theze,

Color ne permet pas de détecter la différence entre une cellule colorée en blanc et une cellule non colorée, il faut utiliser ColorIndex :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Sub Test() Dim Couleur As Long 'couleur rouge Couleur = RGB(255, 0, 0) 'test sur cellule A1 If Cells(1, 1).Interior.Color = Couleur Then MsgBox "Ok, c'est la bonne couleur !" ElseIf Cells(1, 1).Interior.ColorIndex <> xlNone Then MsgBox "La cellule est colorée mais ce n'est pas la bonne couleur !" Else MsgBox "La cellule n'est pas colorée !" End If End Sub

---

Bonjour,

Et comme j'ai fait moi ca va, ne sachant pas la couleur j'ai inversé et dit si ma couleur est différent de rien

Code:

---

1 2 3

Couleur = Range("D" & Cpt).Interior.Color   If DateJour >= DateLimite And Couleur = 16777215 Then

---

Citation:

---

Envoyé par Patrice740

Bonjour Theze,

Color ne permet pas de détecter la différence entre une cellule colorée en blanc et une cellule non colorée, il faut utiliser ColorIndex :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Sub Test() Dim Couleur As Long 'couleur rouge Couleur = RGB(255, 0, 0) 'test sur cellule A1 If Cells(1, 1).Interior.Color = Couleur Then MsgBox "Ok, c'est la bonne couleur !" ElseIf Cells(1, 1).Interior.ColorIndex <> xlNone Then MsgBox "La cellule est colorée mais ce n'est pas la bonne couleur !" Else MsgBox "La cellule n'est pas colorée !" End If End Sub

---

---

Citation:

---

Envoyé par ashpo4

Bonjour,

Et comme j'ai fait moi ca va, ne sachant pas la couleur j'ai inversé et dit si ma couleur est différent de rien

Code:

---

1 2	Couleur = Range("D" & Cpt).Interior.Color If DateJour >= DateLimite And Couleur = 16777215 Then

---

---

Ça c'est : si aucune couleur ou couleur blanche.
Pour tester couleur différente de rien :

Code:

---

If Range("D" & Cpt).Interior.ColorIndex <> xlNone then

---

D'accord merci