Cherche code pour projet

[BrunoDS78]

Hello, Bonjour à tous...
Quelqu'un pourrait-il m'aider en me donnant un code pour mon projet en PJ ?
Help Please
Merci d'avance

 

[Fred0o]

Re : Cherche code pour projet

BONJOUR ! mon cher BrunoDS78,

Comme tu as sans aucun doute omis de passer par cette étape, je te conseille vivement de lire la Lien supprimé avant de continuer à demander de l'aide. En effet, un minimum de politesse avec des formules basiques du type bonjour, s'il vous plaît et merci inciterons certainement les bénévoles que nous sommes à bien vouloir t'aider dans ta demande, car ne l'oublie jamais, le seul qui sera embêté si il n'a pas de réponse, c'est toi.

Cordialement

 

[phlaurent55]

Re : Cherche code pour projet

Bonjour à tous,

manque de précision dans la question posée !!!!!!!!!!
comment savoir la ligne où devra s'inscrire la date ???????????????
il faudrait connaitre la date de création pour pouvoir le faire !!!!

à+
Philippe

 

[JCGL]

Re : Cherche code pour projet

Bonjour à tous,
Salut Fred,
Salut Philippe,

Dans un module standard :

Option Explicit

Sub Relance()
Feuil2.Cells(Application.Match(Feuil1.[C2], Feuil2.[A2:A51], 2), 3) = Feuil1.[A8]
End Sub

Sub Clore()
Feuil2.Cells(Application.Match(Feuil1.[C2], Feuil2.[A2:A51], 2), 4) = Feuil1.[A8]
End Sub

A+ à tous

 

[BrunoDS78]

Re : Cherche code pour projet

Bonjour Philippe,
Tout d'abord merci pour ta réponse.
Si tu regardes mon fichier "Test" tu peux voir qu'en faite la date apparait sur la ligne relative à la valeur cherchée (j'ai mis des couleurs pour une meilleure visibilité).
Et la date est en faite la date du jour, que l'on retrouve sur la Feuil1.
Merci d'avance

 

[BrunoDS78]

Re : Cherche code pour projet

Bonjour JCGL,
Merci pour ton fichier... mais il y a un petit décalage
Quand je tape 47, la date se met dans le 46

Bonjour à tous,
Salut Fred,
Salut Philippe,

Dans un module standard :

Option Explicit

Sub Relance()
Feuil2.Cells(Application.Match(Feuil1.[C2], Feuil2.[A2:A51], 2), 3) = Feuil1.[A8]
End Sub

Sub Clore()
Feuil2.Cells(Application.Match(Feuil1.[C2], Feuil2.[A2:A51], 2), 4) = Feuil1.[A8]
End Sub

A+ à tous

 

[JCGL]

Re : Cherche code pour projet

Bonjour à tous,

Rajoute +1....

Option Explicit

Sub Relance()
Feuil2.Cells(Application.Match(Feuil1.[C2]+1, Feuil2.[A2:A51], 2), 3) = Feuil1.[A8]
End Sub

Sub Clore()
Feuil2.Cells(Application.Match(Feuil1.[C2]+1, Feuil2.[A2:A51], 2), 4) = Feuil1.[A8]
End Sub

A+ à tous

 

[BrunoDS78]

Re : Cherche code pour projet

Merci JCGL,
Mais je remarque que le probleme avec ce code, est qu'il est limité.
C'est à dire qu'il ne fonctionne que si dans la colonne A de la Feuil2, ce sont des chiffres qui se suivent.
S il s'agit de chiffres aléatoires (1;5;8;10...), ou des références incorporant des lettres (ex: "AV-1";"AB-10";SD-8...) cela ne marche pas.
Peux-tu m'aider ??

 

[JCGL]

Re : Cherche code pour projet

Bonjour à tous,

Peux-tu essayer avec :

Option Explicit

Sub Relance()
    Feuil2.Select
    Columns(1).Find(What:=Feuil1.[C2], After:=ActiveCell, LookIn:=xlValues, LookAt:=xlPart).Activate
    ActiveCell.Offset(0, 2) = Feuil1.[A8]
End Sub

Sub Clore()
    Feuil2.Select
    Columns(1).Find(What:=Feuil1.[C2], After:=ActiveCell, LookIn:=xlValues, LookAt:=xlPart).Activate
    ActiveCell.Offset(0, 3) = Feuil1.[A8]
End Sub

A+ à tous

 

[BrunoDS78]

Re : Cherche code pour projet

Bonjour,

Apparemment ce code ne fonctionne pas...

Bonjour à tous,

Peux-tu essayer avec :

Option Explicit

Sub Relance()
    Feuil2.Select
    Columns(1).Find(What:=Feuil1.[C2], After:=ActiveCell, LookIn:=xlValues, LookAt:=xlPart).Activate
    ActiveCell.Offset(0, 2) = Feuil1.[A8]
End Sub

Sub Clore()
    Feuil2.Select
    Columns(1).Find(What:=Feuil1.[C2], After:=ActiveCell, LookIn:=xlValues, LookAt:=xlPart).Activate
    ActiveCell.Offset(0, 3) = Feuil1.[A8]
End Sub

A+ à tous

 

[JCGL]

Re : Cherche code pour projet

Bonjour à tous,

Étonnant ou bien je ne n'ai rien compris, ce qui reste possible

A+ à tous

 

[BrunoDS78]

Re : Cherche code pour projet

Merci JCGL,
Ce qu'il me manquait, c'était la liste déroulante en Feuil1. Milles Mercis.

J'en profite pour vous demander une autre info.
Comment traduit-on l'exemple ci-dessous en vba ?
Exemple: Si B6="FAUX" ET B7="FAUX ET C6="FAUX" ET C7="FAUX" ALORS...

Merci

 

[JCGL]

Re : Cherche code pour projet

Bonjour à tous,

A la bonne heure...

Pour la formule en VBA :

Range("A3").Formula = _
"=IF(AND(R6C2=FALSE,R7C2=FALSE,R6C3=FALSE,R7C3=FALSE),""Ton texte si condition Vrai"",""ton Texte si condition si Faux"")"

A+ à tous

 

[BrunoDS78]

Re : Cherche code pour projet

En faite j'ai 4 "cases à cocher".
Une case et une seule doit être cochée.
Donc je voulais un code qui afficherait une "MessageBox" si aucune OU + d'une case est cochée.
Les cases cocher sont B6 B7 C6 C7.

 

[JCGL]

Re : Cherche code pour projet

Bonjour à tous,

Merci de déposer ton fichier pour une tentative d'aide optimisée

A+ à tous