remplir une cellule

Youky

14/07/2005 à 22:58

Bonsoir Gérard,
Normal,tu protèges au lieu de déprotéger
Je ne vois pas de.......Sheets("CONTACTS").Unprotect
ceci avant la pose de la date
A+

"Gerard" a écrit dans le message de news:
42d6c9b1$0$915$

Bonjour
je suis sur la page accueil et je voudrai mettre a jour la cellule N& I de
la page contacts qui correspond a la ligne trouvée par rapport a la
cellule

A & I

et cela coince au moment de la remplir Sheets("CONTACTS").Range("N" &
"I").Value = Date
voici le code que j'ai dejà preparé

Private Sub CmdMiseAJour_Click()
Sheets("CONTACTS").Select
For I = 5 To 1000 '1000 cellules scrutées

If Sheets("CONTACTS").Range("A" & I).Value > Sheets("ACCUEIL").Range("F14").Value Then 'recherche valeur dans colonne
A

'deprotege la feuille par le code
Sheets("CONTACTS").Protect DrawingObjects:=True, Contents:=True,
Scenarios:=True, Password:=SebOk
ActiveSheet.EnableSelection = xlUnlockedCells

Sheets("CONTACTS").Range("N" & "I").Value = Date 'copie la
cellule

correspondante

End If
Next I
'reprotege la feuille
Sheets("CONTACTS").Protect DrawingObjects:=True, Contents:=True,
Scenarios:=True, Password:=SebOk
ActiveSheet.EnableSelection = xlUnlockedCells

'cache les deux controles
CmdMiseAJour.Visible = False
LblMiseAJour.Visible = False
Sheets("ACCUEIL").Range("F14").Value = "" ' reviens sur la feuille de
depart

End Sub

Gerard

15/07/2005 à 05:18

bonjour
je m'en suis apercu mais c'est la meme chose
je pense que cela vient de la maniere dont je rempli la cellule

Private Sub CmdMiseAJour_Click()
Dim vardate As Date

Sheets("CONTACTS").Unprotect SebOk ' deprotege
For I = 5 To 1000 '1000 cellules scrutées

If Sheets("CONTACTS").Range("A" & I).Value =
Sheets("ACCUEIL").Range("F14").Value Then 'recherche valeur dans colonne A

Sheets("CONTACTS").Range("N" & "I").Value = Date 'copie la
cellule B correspondante

End If
Next I
Sheets("CONTACTS").Protect DrawingObjects:=True, Contents:=True,
Scenarios:=True, Password:=SebOk
ActiveSheet.EnableSelection = xlUnlockedCells

'cache les deux controles
CmdMiseAJour.Visible = False
LblMiseAJour.Visible = False
Sheets("ACCUEIL").Range("F14").Value = ""

End Sub

merci

"Gerard" a écrit dans le message de news:
42d6c9b1$0$915$

Bonjour
je suis sur la page accueil et je voudrai mettre a jour la cellule N& I de
la page contacts qui correspond a la ligne trouvée par rapport a la
cellule A & I

et cela coince au moment de la remplir Sheets("CONTACTS").Range("N" &
"I").Value = Date
voici le code que j'ai dejà preparé

Private Sub CmdMiseAJour_Click()
Sheets("CONTACTS").Select
For I = 5 To 1000 '1000 cellules scrutées

If Sheets("CONTACTS").Range("A" & I).Value =
Sheets("ACCUEIL").Range("F14").Value Then 'recherche valeur dans colonne
A

'deprotege la feuille par le code
Sheets("CONTACTS").Protect DrawingObjects:=True, Contents:=True,
Scenarios:=True, Password:=SebOk
ActiveSheet.EnableSelection = xlUnlockedCells

Sheets("CONTACTS").Range("N" & "I").Value = Date 'copie la
cellule correspondante

End If
Next I
'reprotege la feuille
Sheets("CONTACTS").Protect DrawingObjects:=True, Contents:=True,
Scenarios:=True, Password:=SebOk
ActiveSheet.EnableSelection = xlUnlockedCells

'cache les deux controles
CmdMiseAJour.Visible = False
LblMiseAJour.Visible = False
Sheets("ACCUEIL").Range("F14").Value = "" ' reviens sur la feuille de
depart

End Sub

bonjour
je m'en suis apercu mais c'est la meme chose
je pense que cela vient de la maniere dont je rempli la cellule

Private Sub CmdMiseAJour_Click()
Dim vardate As Date

Sheets("CONTACTS").Unprotect SebOk ' deprotege
For I = 5 To 1000 '1000 cellules scrutées

If Sheets("CONTACTS").Range("A" & I).Value =
Sheets("ACCUEIL").Range("F14").Value Then 'recherche valeur dans colonne A

Sheets("CONTACTS").Range("N" & "I").Value = Date 'copie la
cellule B correspondante

End If
Next I
Sheets("CONTACTS").Protect DrawingObjects:=True, Contents:=True,
Scenarios:=True, Password:=SebOk
ActiveSheet.EnableSelection = xlUnlockedCells

'cache les deux controles
CmdMiseAJour.Visible = False
LblMiseAJour.Visible = False
Sheets("ACCUEIL").Range("F14").Value = ""

End Sub

merci

"Gerard" <gege@microsoft.fr> a écrit dans le message de news:
42d6c9b1$0$915$8fcfb975@news.wanadoo.fr...

Bonjour
je suis sur la page accueil et je voudrai mettre a jour la cellule N& I de
la page contacts qui correspond a la ligne trouvée par rapport a la
cellule A & I

et cela coince au moment de la remplir Sheets("CONTACTS").Range("N" &
"I").Value = Date
voici le code que j'ai dejà preparé

Private Sub CmdMiseAJour_Click()
Sheets("CONTACTS").Select
For I = 5 To 1000 '1000 cellules scrutées

If Sheets("CONTACTS").Range("A" & I).Value =
Sheets("ACCUEIL").Range("F14").Value Then 'recherche valeur dans colonne
A

'deprotege la feuille par le code
Sheets("CONTACTS").Protect DrawingObjects:=True, Contents:=True,
Scenarios:=True, Password:=SebOk
ActiveSheet.EnableSelection = xlUnlockedCells

Sheets("CONTACTS").Range("N" & "I").Value = Date 'copie la
cellule correspondante

End If
Next I
'reprotege la feuille
Sheets("CONTACTS").Protect DrawingObjects:=True, Contents:=True,
Scenarios:=True, Password:=SebOk
ActiveSheet.EnableSelection = xlUnlockedCells

'cache les deux controles
CmdMiseAJour.Visible = False
LblMiseAJour.Visible = False
Sheets("ACCUEIL").Range("F14").Value = "" ' reviens sur la feuille de
depart

End Sub

Gerard

15/07/2005 à 05:59

je vien de trouver mon erreur, j'en ai passe du temps la dessus , cela va me
rester dans la tete

j'avais encadre le I de double cote, il pouvait pas reconnaitre la cellule

merci
"Gerard" a écrit dans le message de news:
42d72b0d$0$886$

bonjour
je m'en suis apercu mais c'est la meme chose
je pense que cela vient de la maniere dont je rempli la cellule

Private Sub CmdMiseAJour_Click()
Dim vardate As Date

Sheets("CONTACTS").Unprotect SebOk ' deprotege
For I = 5 To 1000 '1000 cellules scrutées

If Sheets("CONTACTS").Range("A" & I).Value =
Sheets("ACCUEIL").Range("F14").Value Then 'recherche valeur dans colonne
A

Sheets("CONTACTS").Range("N" & "I").Value = Date 'copie la
cellule B correspondante

End If
Next I
Sheets("CONTACTS").Protect DrawingObjects:=True, Contents:=True,
Scenarios:=True, Password:=SebOk
ActiveSheet.EnableSelection = xlUnlockedCells

'cache les deux controles
CmdMiseAJour.Visible = False
LblMiseAJour.Visible = False
Sheets("ACCUEIL").Range("F14").Value = ""

End Sub

merci

"Gerard" a écrit dans le message de news:
42d6c9b1$0$915$
Bonjour
je suis sur la page accueil et je voudrai mettre a jour la cellule N& I
de la page contacts qui correspond a la ligne trouvée par rapport a la
cellule A & I

et cela coince au moment de la remplir Sheets("CONTACTS").Range("N" &
"I").Value = Date
voici le code que j'ai dejà preparé

Private Sub CmdMiseAJour_Click()
Sheets("CONTACTS").Select
For I = 5 To 1000 '1000 cellules scrutées

If Sheets("CONTACTS").Range("A" & I).Value =
Sheets("ACCUEIL").Range("F14").Value Then 'recherche valeur dans
colonne A

'deprotege la feuille par le code
Sheets("CONTACTS").Protect DrawingObjects:=True, Contents:=True,
Scenarios:=True, Password:=SebOk
ActiveSheet.EnableSelection = xlUnlockedCells

Sheets("CONTACTS").Range("N" & "I").Value = Date 'copie la
cellule correspondante

End If
Next I
'reprotege la feuille
Sheets("CONTACTS").Protect DrawingObjects:=True, Contents:=True,
Scenarios:=True, Password:=SebOk
ActiveSheet.EnableSelection = xlUnlockedCells

'cache les deux controles
CmdMiseAJour.Visible = False
LblMiseAJour.Visible = False
Sheets("ACCUEIL").Range("F14").Value = "" ' reviens sur la feuille de
depart

End Sub

je vien de trouver mon erreur, j'en ai passe du temps la dessus , cela va me
rester dans la tete

j'avais encadre le I de double cote, il pouvait pas reconnaitre la cellule

merci
"Gerard" <gege@microsoft.fr> a écrit dans le message de news:
42d72b0d$0$886$8fcfb975@news.wanadoo.fr...

bonjour
je m'en suis apercu mais c'est la meme chose
je pense que cela vient de la maniere dont je rempli la cellule

Private Sub CmdMiseAJour_Click()
Dim vardate As Date

Sheets("CONTACTS").Unprotect SebOk ' deprotege
For I = 5 To 1000 '1000 cellules scrutées

If Sheets("CONTACTS").Range("A" & I).Value =
Sheets("ACCUEIL").Range("F14").Value Then 'recherche valeur dans colonne
A

Sheets("CONTACTS").Range("N" & "I").Value = Date 'copie la
cellule B correspondante

End If
Next I
Sheets("CONTACTS").Protect DrawingObjects:=True, Contents:=True,
Scenarios:=True, Password:=SebOk
ActiveSheet.EnableSelection = xlUnlockedCells

'cache les deux controles
CmdMiseAJour.Visible = False
LblMiseAJour.Visible = False
Sheets("ACCUEIL").Range("F14").Value = ""

End Sub

merci

"Gerard" <gege@microsoft.fr> a écrit dans le message de news:
42d6c9b1$0$915$8fcfb975@news.wanadoo.fr...

Bonjour
je suis sur la page accueil et je voudrai mettre a jour la cellule N& I
de la page contacts qui correspond a la ligne trouvée par rapport a la
cellule A & I

et cela coince au moment de la remplir Sheets("CONTACTS").Range("N" &
"I").Value = Date
voici le code que j'ai dejà preparé

Private Sub CmdMiseAJour_Click()
Sheets("CONTACTS").Select
For I = 5 To 1000 '1000 cellules scrutées

If Sheets("CONTACTS").Range("A" & I).Value =
Sheets("ACCUEIL").Range("F14").Value Then 'recherche valeur dans
colonne A

'deprotege la feuille par le code
Sheets("CONTACTS").Protect DrawingObjects:=True, Contents:=True,
Scenarios:=True, Password:=SebOk
ActiveSheet.EnableSelection = xlUnlockedCells

Sheets("CONTACTS").Range("N" & "I").Value = Date 'copie la
cellule correspondante

End If
Next I
'reprotege la feuille
Sheets("CONTACTS").Protect DrawingObjects:=True, Contents:=True,
Scenarios:=True, Password:=SebOk
ActiveSheet.EnableSelection = xlUnlockedCells

'cache les deux controles
CmdMiseAJour.Visible = False
LblMiseAJour.Visible = False
Sheets("ACCUEIL").Range("F14").Value = "" ' reviens sur la feuille de
depart

End Sub

Vous avez filtré cet utilisateur ! Consultez son message

je vien de trouver mon erreur, j'en ai passe du temps la dessus , cela va me
rester dans la tete

j'avais encadre le I de double cote, il pouvait pas reconnaitre la cellule

merci
"Gerard" a écrit dans le message de news:
42d72b0d$0$886$

bonjour
je m'en suis apercu mais c'est la meme chose
je pense que cela vient de la maniere dont je rempli la cellule

Private Sub CmdMiseAJour_Click()
Dim vardate As Date

Sheets("CONTACTS").Unprotect SebOk ' deprotege
For I = 5 To 1000 '1000 cellules scrutées

If Sheets("CONTACTS").Range("A" & I).Value =
Sheets("ACCUEIL").Range("F14").Value Then 'recherche valeur dans colonne
A

Sheets("CONTACTS").Range("N" & "I").Value = Date 'copie la
cellule B correspondante

End If
Next I
Sheets("CONTACTS").Protect DrawingObjects:=True, Contents:=True,
Scenarios:=True, Password:=SebOk
ActiveSheet.EnableSelection = xlUnlockedCells

'cache les deux controles
CmdMiseAJour.Visible = False
LblMiseAJour.Visible = False
Sheets("ACCUEIL").Range("F14").Value = ""

End Sub

merci

"Gerard" a écrit dans le message de news:
42d6c9b1$0$915$
Bonjour
je suis sur la page accueil et je voudrai mettre a jour la cellule N& I
de la page contacts qui correspond a la ligne trouvée par rapport a la
cellule A & I

et cela coince au moment de la remplir Sheets("CONTACTS").Range("N" &
"I").Value = Date
voici le code que j'ai dejà preparé

Private Sub CmdMiseAJour_Click()
Sheets("CONTACTS").Select
For I = 5 To 1000 '1000 cellules scrutées

If Sheets("CONTACTS").Range("A" & I).Value =
Sheets("ACCUEIL").Range("F14").Value Then 'recherche valeur dans
colonne A

'deprotege la feuille par le code
Sheets("CONTACTS").Protect DrawingObjects:=True, Contents:=True,
Scenarios:=True, Password:=SebOk
ActiveSheet.EnableSelection = xlUnlockedCells

Sheets("CONTACTS").Range("N" & "I").Value = Date 'copie la
cellule correspondante

End If
Next I
'reprotege la feuille
Sheets("CONTACTS").Protect DrawingObjects:=True, Contents:=True,
Scenarios:=True, Password:=SebOk
ActiveSheet.EnableSelection = xlUnlockedCells

'cache les deux controles
CmdMiseAJour.Visible = False
LblMiseAJour.Visible = False
Sheets("ACCUEIL").Range("F14").Value = "" ' reviens sur la feuille de
depart

End Sub

jps

15/07/2005 à 06:55

bravo gérard
tu as été plus perspicace que tout le monde ici....
jps

"Gerard" a écrit dans le message de news:
42d73476$0$3120$

je vien de trouver mon erreur, j'en ai passe du temps la dessus , cela va
me rester dans la tete

j'avais encadre le I de double cote, il pouvait pas reconnaitre la cellule

merci
"Gerard" a écrit dans le message de news:
42d72b0d$0$886$
bonjour
je m'en suis apercu mais c'est la meme chose
je pense que cela vient de la maniere dont je rempli la cellule

Private Sub CmdMiseAJour_Click()
Dim vardate As Date

Sheets("CONTACTS").Unprotect SebOk ' deprotege
For I = 5 To 1000 '1000 cellules scrutées

If Sheets("CONTACTS").Range("A" & I).Value =
Sheets("ACCUEIL").Range("F14").Value Then 'recherche valeur dans colonne
A

Sheets("CONTACTS").Range("N" & "I").Value = Date 'copie la
cellule B correspondante

End If
Next I
Sheets("CONTACTS").Protect DrawingObjects:=True, Contents:=True,
Scenarios:=True, Password:=SebOk
ActiveSheet.EnableSelection = xlUnlockedCells

'cache les deux controles
CmdMiseAJour.Visible = False
LblMiseAJour.Visible = False
Sheets("ACCUEIL").Range("F14").Value = ""

End Sub

merci

"Gerard" a écrit dans le message de news:
42d6c9b1$0$915$
Bonjour
je suis sur la page accueil et je voudrai mettre a jour la cellule N& I
de la page contacts qui correspond a la ligne trouvée par rapport a la
cellule A & I

et cela coince au moment de la remplir Sheets("CONTACTS").Range("N" &
"I").Value = Date
voici le code que j'ai dejà preparé

Private Sub CmdMiseAJour_Click()
Sheets("CONTACTS").Select
For I = 5 To 1000 '1000 cellules scrutées

If Sheets("CONTACTS").Range("A" & I).Value =
Sheets("ACCUEIL").Range("F14").Value Then 'recherche valeur dans
colonne A

'deprotege la feuille par le code
Sheets("CONTACTS").Protect DrawingObjects:=True, Contents:=True,
Scenarios:=True, Password:=SebOk
ActiveSheet.EnableSelection = xlUnlockedCells

Sheets("CONTACTS").Range("N" & "I").Value = Date 'copie la
cellule correspondante

End If
Next I
'reprotege la feuille
Sheets("CONTACTS").Protect DrawingObjects:=True, Contents:=True,
Scenarios:=True, Password:=SebOk
ActiveSheet.EnableSelection = xlUnlockedCells

'cache les deux controles
CmdMiseAJour.Visible = False
LblMiseAJour.Visible = False
Sheets("ACCUEIL").Range("F14").Value = "" ' reviens sur la feuille de
depart

End Sub

bravo gérard
tu as été plus perspicace que tout le monde ici....
jps

"Gerard" <gege@microsoft.fr> a écrit dans le message de news:
42d73476$0$3120$8fcfb975@news.wanadoo.fr...

je vien de trouver mon erreur, j'en ai passe du temps la dessus , cela va
me rester dans la tete

j'avais encadre le I de double cote, il pouvait pas reconnaitre la cellule

merci
"Gerard" <gege@microsoft.fr> a écrit dans le message de news:
42d72b0d$0$886$8fcfb975@news.wanadoo.fr...

bonjour
je m'en suis apercu mais c'est la meme chose
je pense que cela vient de la maniere dont je rempli la cellule

Private Sub CmdMiseAJour_Click()
Dim vardate As Date

Sheets("CONTACTS").Unprotect SebOk ' deprotege
For I = 5 To 1000 '1000 cellules scrutées

If Sheets("CONTACTS").Range("A" & I).Value =
Sheets("ACCUEIL").Range("F14").Value Then 'recherche valeur dans colonne
A

Sheets("CONTACTS").Range("N" & "I").Value = Date 'copie la
cellule B correspondante

End If
Next I
Sheets("CONTACTS").Protect DrawingObjects:=True, Contents:=True,
Scenarios:=True, Password:=SebOk
ActiveSheet.EnableSelection = xlUnlockedCells

'cache les deux controles
CmdMiseAJour.Visible = False
LblMiseAJour.Visible = False
Sheets("ACCUEIL").Range("F14").Value = ""

End Sub

merci

"Gerard" <gege@microsoft.fr> a écrit dans le message de news:
42d6c9b1$0$915$8fcfb975@news.wanadoo.fr...

Bonjour
je suis sur la page accueil et je voudrai mettre a jour la cellule N& I
de la page contacts qui correspond a la ligne trouvée par rapport a la
cellule A & I

et cela coince au moment de la remplir Sheets("CONTACTS").Range("N" &
"I").Value = Date
voici le code que j'ai dejà preparé

Private Sub CmdMiseAJour_Click()
Sheets("CONTACTS").Select
For I = 5 To 1000 '1000 cellules scrutées

If Sheets("CONTACTS").Range("A" & I).Value =
Sheets("ACCUEIL").Range("F14").Value Then 'recherche valeur dans
colonne A

'deprotege la feuille par le code
Sheets("CONTACTS").Protect DrawingObjects:=True, Contents:=True,
Scenarios:=True, Password:=SebOk
ActiveSheet.EnableSelection = xlUnlockedCells

Sheets("CONTACTS").Range("N" & "I").Value = Date 'copie la
cellule correspondante

End If
Next I
'reprotege la feuille
Sheets("CONTACTS").Protect DrawingObjects:=True, Contents:=True,
Scenarios:=True, Password:=SebOk
ActiveSheet.EnableSelection = xlUnlockedCells

'cache les deux controles
CmdMiseAJour.Visible = False
LblMiseAJour.Visible = False
Sheets("ACCUEIL").Range("F14").Value = "" ' reviens sur la feuille de
depart

End Sub

Vous avez filtré cet utilisateur ! Consultez son message

bravo gérard
tu as été plus perspicace que tout le monde ici....
jps

"Gerard" a écrit dans le message de news:
42d73476$0$3120$

je vien de trouver mon erreur, j'en ai passe du temps la dessus , cela va
me rester dans la tete

j'avais encadre le I de double cote, il pouvait pas reconnaitre la cellule

merci
"Gerard" a écrit dans le message de news:
42d72b0d$0$886$
bonjour
je m'en suis apercu mais c'est la meme chose
je pense que cela vient de la maniere dont je rempli la cellule

Private Sub CmdMiseAJour_Click()
Dim vardate As Date

Sheets("CONTACTS").Unprotect SebOk ' deprotege
For I = 5 To 1000 '1000 cellules scrutées

If Sheets("CONTACTS").Range("A" & I).Value =
Sheets("ACCUEIL").Range("F14").Value Then 'recherche valeur dans colonne
A

Sheets("CONTACTS").Range("N" & "I").Value = Date 'copie la
cellule B correspondante

End If
Next I
Sheets("CONTACTS").Protect DrawingObjects:=True, Contents:=True,
Scenarios:=True, Password:=SebOk
ActiveSheet.EnableSelection = xlUnlockedCells

'cache les deux controles
CmdMiseAJour.Visible = False
LblMiseAJour.Visible = False
Sheets("ACCUEIL").Range("F14").Value = ""

End Sub

merci

"Gerard" a écrit dans le message de news:
42d6c9b1$0$915$
Bonjour
je suis sur la page accueil et je voudrai mettre a jour la cellule N& I
de la page contacts qui correspond a la ligne trouvée par rapport a la
cellule A & I

et cela coince au moment de la remplir Sheets("CONTACTS").Range("N" &
"I").Value = Date
voici le code que j'ai dejà preparé

Private Sub CmdMiseAJour_Click()
Sheets("CONTACTS").Select
For I = 5 To 1000 '1000 cellules scrutées

If Sheets("CONTACTS").Range("A" & I).Value =
Sheets("ACCUEIL").Range("F14").Value Then 'recherche valeur dans
colonne A

'deprotege la feuille par le code
Sheets("CONTACTS").Protect DrawingObjects:=True, Contents:=True,
Scenarios:=True, Password:=SebOk
ActiveSheet.EnableSelection = xlUnlockedCells

Sheets("CONTACTS").Range("N" & "I").Value = Date 'copie la
cellule correspondante

End If
Next I
'reprotege la feuille
Sheets("CONTACTS").Protect DrawingObjects:=True, Contents:=True,
Scenarios:=True, Password:=SebOk
ActiveSheet.EnableSelection = xlUnlockedCells

'cache les deux controles
CmdMiseAJour.Visible = False
LblMiseAJour.Visible = False
Sheets("ACCUEIL").Range("F14").Value = "" ' reviens sur la feuille de
depart

End Sub

Youky

15/07/2005 à 07:57

Je confirme,
Youky

"jps" a écrit dans le message de news:

bravo gérard
tu as été plus perspicace que tout le monde ici....
jps

"Gerard" a écrit dans le message de news:
42d73476$0$3120$
je vien de trouver mon erreur, j'en ai passe du temps la dessus , cela
va

me rester dans la tete

j'avais encadre le I de double cote, il pouvait pas reconnaitre la
cellule

merci
"Gerard" a écrit dans le message de news:
42d72b0d$0$886$
bonjour
je m'en suis apercu mais c'est la meme chose
je pense que cela vient de la maniere dont je rempli la cellule

Private Sub CmdMiseAJour_Click()
Dim vardate As Date

Sheets("CONTACTS").Unprotect SebOk ' deprotege
For I = 5 To 1000 '1000 cellules scrutées

If Sheets("CONTACTS").Range("A" & I).Value > >> Sheets("ACCUEIL").Range("F14").Value Then 'recherche valeur dans
colonne

A

Sheets("CONTACTS").Range("N" & "I").Value = Date 'copie la
cellule B correspondante

End If
Next I
Sheets("CONTACTS").Protect DrawingObjects:=True, Contents:=True,
Scenarios:=True, Password:=SebOk
ActiveSheet.EnableSelection = xlUnlockedCells

'cache les deux controles
CmdMiseAJour.Visible = False
LblMiseAJour.Visible = False
Sheets("ACCUEIL").Range("F14").Value = ""

End Sub

merci

"Gerard" a écrit dans le message de news:
42d6c9b1$0$915$
Bonjour
je suis sur la page accueil et je voudrai mettre a jour la cellule N&
I

de la page contacts qui correspond a la ligne trouvée par rapport a la
cellule A & I

et cela coince au moment de la remplir Sheets("CONTACTS").Range("N" &
"I").Value = Date
voici le code que j'ai dejà preparé

Private Sub CmdMiseAJour_Click()
Sheets("CONTACTS").Select
For I = 5 To 1000 '1000 cellules scrutées

If Sheets("CONTACTS").Range("A" & I).Value > >>> Sheets("ACCUEIL").Range("F14").Value Then 'recherche valeur dans
colonne A

'deprotege la feuille par le code
Sheets("CONTACTS").Protect DrawingObjects:=True,
Contents:=True,

Scenarios:=True, Password:=SebOk
ActiveSheet.EnableSelection = xlUnlockedCells

Sheets("CONTACTS").Range("N" & "I").Value = Date 'copie la
cellule correspondante

End If
Next I
'reprotege la feuille
Sheets("CONTACTS").Protect DrawingObjects:=True, Contents:=True,
Scenarios:=True, Password:=SebOk
ActiveSheet.EnableSelection = xlUnlockedCells

'cache les deux controles
CmdMiseAJour.Visible = False
LblMiseAJour.Visible = False
Sheets("ACCUEIL").Range("F14").Value = "" ' reviens sur la feuille
de

depart

End Sub

Je confirme,
Youky

"jps" <vaderetrosp@mas> a écrit dans le message de news:
uo13wlPiFHA.320@TK2MSFTNGP09.phx.gbl...

bravo gérard
tu as été plus perspicace que tout le monde ici....
jps

"Gerard" <gege@microsoft.fr> a écrit dans le message de news:
42d73476$0$3120$8fcfb975@news.wanadoo.fr...

je vien de trouver mon erreur, j'en ai passe du temps la dessus , cela
va

me rester dans la tete

j'avais encadre le I de double cote, il pouvait pas reconnaitre la
cellule

merci
"Gerard" <gege@microsoft.fr> a écrit dans le message de news:
42d72b0d$0$886$8fcfb975@news.wanadoo.fr...

bonjour
je m'en suis apercu mais c'est la meme chose
je pense que cela vient de la maniere dont je rempli la cellule

Private Sub CmdMiseAJour_Click()
Dim vardate As Date

Sheets("CONTACTS").Unprotect SebOk ' deprotege
For I = 5 To 1000 '1000 cellules scrutées

If Sheets("CONTACTS").Range("A" & I).Value > >> Sheets("ACCUEIL").Range("F14").Value Then 'recherche valeur dans
colonne

A

Sheets("CONTACTS").Range("N" & "I").Value = Date 'copie la
cellule B correspondante

End If
Next I
Sheets("CONTACTS").Protect DrawingObjects:=True, Contents:=True,
Scenarios:=True, Password:=SebOk
ActiveSheet.EnableSelection = xlUnlockedCells

'cache les deux controles
CmdMiseAJour.Visible = False
LblMiseAJour.Visible = False
Sheets("ACCUEIL").Range("F14").Value = ""

End Sub

merci

"Gerard" <gege@microsoft.fr> a écrit dans le message de news:
42d6c9b1$0$915$8fcfb975@news.wanadoo.fr...

Bonjour
je suis sur la page accueil et je voudrai mettre a jour la cellule N&
I

de la page contacts qui correspond a la ligne trouvée par rapport a la
cellule A & I

et cela coince au moment de la remplir Sheets("CONTACTS").Range("N" &
"I").Value = Date
voici le code que j'ai dejà preparé

Private Sub CmdMiseAJour_Click()
Sheets("CONTACTS").Select
For I = 5 To 1000 '1000 cellules scrutées

If Sheets("CONTACTS").Range("A" & I).Value > >>> Sheets("ACCUEIL").Range("F14").Value Then 'recherche valeur dans
colonne A

'deprotege la feuille par le code
Sheets("CONTACTS").Protect DrawingObjects:=True,
Contents:=True,

Scenarios:=True, Password:=SebOk
ActiveSheet.EnableSelection = xlUnlockedCells

Sheets("CONTACTS").Range("N" & "I").Value = Date 'copie la
cellule correspondante

End If
Next I
'reprotege la feuille
Sheets("CONTACTS").Protect DrawingObjects:=True, Contents:=True,
Scenarios:=True, Password:=SebOk
ActiveSheet.EnableSelection = xlUnlockedCells

'cache les deux controles
CmdMiseAJour.Visible = False
LblMiseAJour.Visible = False
Sheets("ACCUEIL").Range("F14").Value = "" ' reviens sur la feuille
de

depart

End Sub

Vous avez filtré cet utilisateur ! Consultez son message

Je confirme,
Youky

"jps" a écrit dans le message de news:

bravo gérard
tu as été plus perspicace que tout le monde ici....
jps

"Gerard" a écrit dans le message de news:
42d73476$0$3120$
je vien de trouver mon erreur, j'en ai passe du temps la dessus , cela
va

me rester dans la tete

j'avais encadre le I de double cote, il pouvait pas reconnaitre la
cellule

merci
"Gerard" a écrit dans le message de news:
42d72b0d$0$886$
bonjour
je m'en suis apercu mais c'est la meme chose
je pense que cela vient de la maniere dont je rempli la cellule

Private Sub CmdMiseAJour_Click()
Dim vardate As Date

Sheets("CONTACTS").Unprotect SebOk ' deprotege
For I = 5 To 1000 '1000 cellules scrutées

If Sheets("CONTACTS").Range("A" & I).Value > >> Sheets("ACCUEIL").Range("F14").Value Then 'recherche valeur dans
colonne

A

Sheets("CONTACTS").Range("N" & "I").Value = Date 'copie la
cellule B correspondante

End If
Next I
Sheets("CONTACTS").Protect DrawingObjects:=True, Contents:=True,
Scenarios:=True, Password:=SebOk
ActiveSheet.EnableSelection = xlUnlockedCells

'cache les deux controles
CmdMiseAJour.Visible = False
LblMiseAJour.Visible = False
Sheets("ACCUEIL").Range("F14").Value = ""

End Sub

merci

"Gerard" a écrit dans le message de news:
42d6c9b1$0$915$
Bonjour
je suis sur la page accueil et je voudrai mettre a jour la cellule N&
I

de la page contacts qui correspond a la ligne trouvée par rapport a la
cellule A & I

et cela coince au moment de la remplir Sheets("CONTACTS").Range("N" &
"I").Value = Date
voici le code que j'ai dejà preparé

Private Sub CmdMiseAJour_Click()
Sheets("CONTACTS").Select
For I = 5 To 1000 '1000 cellules scrutées

If Sheets("CONTACTS").Range("A" & I).Value > >>> Sheets("ACCUEIL").Range("F14").Value Then 'recherche valeur dans
colonne A

'deprotege la feuille par le code
Sheets("CONTACTS").Protect DrawingObjects:=True,
Contents:=True,

Scenarios:=True, Password:=SebOk
ActiveSheet.EnableSelection = xlUnlockedCells

Sheets("CONTACTS").Range("N" & "I").Value = Date 'copie la
cellule correspondante

End If
Next I
'reprotege la feuille
Sheets("CONTACTS").Protect DrawingObjects:=True, Contents:=True,
Scenarios:=True, Password:=SebOk
ActiveSheet.EnableSelection = xlUnlockedCells

'cache les deux controles
CmdMiseAJour.Visible = False
LblMiseAJour.Visible = False
Sheets("ACCUEIL").Range("F14").Value = "" ' reviens sur la feuille
de

depart

End Sub

jps

15/07/2005 à 08:06

oui, bien sûr, youky, mais toi, tu n'es pas en charge du tampon "QC
passed"...
jps

"Youky" a écrit dans le message de news:

Je confirme,
Youky

"jps" a écrit dans le message de news:

bravo gérard
tu as été plus perspicace que tout le monde ici....
jps

"Gerard" a écrit dans le message de news:
42d73476$0$3120$
je vien de trouver mon erreur, j'en ai passe du temps la dessus , cela
va

me rester dans la tete

j'avais encadre le I de double cote, il pouvait pas reconnaitre la
cellule

merci
"Gerard" a écrit dans le message de news:
42d72b0d$0$886$
bonjour
je m'en suis apercu mais c'est la meme chose
je pense que cela vient de la maniere dont je rempli la cellule

Private Sub CmdMiseAJour_Click()
Dim vardate As Date

Sheets("CONTACTS").Unprotect SebOk ' deprotege
For I = 5 To 1000 '1000 cellules scrutées

If Sheets("CONTACTS").Range("A" & I).Value >> >> Sheets("ACCUEIL").Range("F14").Value Then 'recherche valeur dans
colonne

A

Sheets("CONTACTS").Range("N" & "I").Value = Date 'copie la
cellule B correspondante

End If
Next I
Sheets("CONTACTS").Protect DrawingObjects:=True, Contents:=True,
Scenarios:=True, Password:=SebOk
ActiveSheet.EnableSelection = xlUnlockedCells

'cache les deux controles
CmdMiseAJour.Visible = False
LblMiseAJour.Visible = False
Sheets("ACCUEIL").Range("F14").Value = ""

End Sub

merci

"Gerard" a écrit dans le message de news:
42d6c9b1$0$915$
Bonjour
je suis sur la page accueil et je voudrai mettre a jour la cellule N&
I

de la page contacts qui correspond a la ligne trouvée par rapport a
la
cellule A & I

et cela coince au moment de la remplir Sheets("CONTACTS").Range("N" &
"I").Value = Date
voici le code que j'ai dejà preparé

Private Sub CmdMiseAJour_Click()
Sheets("CONTACTS").Select
For I = 5 To 1000 '1000 cellules scrutées

If Sheets("CONTACTS").Range("A" & I).Value >> >>> Sheets("ACCUEIL").Range("F14").Value Then 'recherche valeur dans
colonne A

'deprotege la feuille par le code
Sheets("CONTACTS").Protect DrawingObjects:=True,
Contents:=True,

Scenarios:=True, Password:=SebOk
ActiveSheet.EnableSelection = xlUnlockedCells

Sheets("CONTACTS").Range("N" & "I").Value = Date 'copie la
cellule correspondante

End If
Next I
'reprotege la feuille
Sheets("CONTACTS").Protect DrawingObjects:=True, Contents:=True,
Scenarios:=True, Password:=SebOk
ActiveSheet.EnableSelection = xlUnlockedCells

'cache les deux controles
CmdMiseAJour.Visible = False
LblMiseAJour.Visible = False
Sheets("ACCUEIL").Range("F14").Value = "" ' reviens sur la feuille
de

depart

End Sub

oui, bien sûr, youky, mais toi, tu n'es pas en charge du tampon "QC
passed"...
jps

"Youky" <bruno.jeune-nospam@wanadoo.fr> a écrit dans le message de news:
uQ1E0HQiFHA.3716@TK2MSFTNGP14.phx.gbl...

Je confirme,
Youky

"jps" <vaderetrosp@mas> a écrit dans le message de news:
uo13wlPiFHA.320@TK2MSFTNGP09.phx.gbl...

bravo gérard
tu as été plus perspicace que tout le monde ici....
jps

"Gerard" <gege@microsoft.fr> a écrit dans le message de news:
42d73476$0$3120$8fcfb975@news.wanadoo.fr...

je vien de trouver mon erreur, j'en ai passe du temps la dessus , cela
va

me rester dans la tete

j'avais encadre le I de double cote, il pouvait pas reconnaitre la
cellule

merci
"Gerard" <gege@microsoft.fr> a écrit dans le message de news:
42d72b0d$0$886$8fcfb975@news.wanadoo.fr...

bonjour
je m'en suis apercu mais c'est la meme chose
je pense que cela vient de la maniere dont je rempli la cellule

Private Sub CmdMiseAJour_Click()
Dim vardate As Date

Sheets("CONTACTS").Unprotect SebOk ' deprotege
For I = 5 To 1000 '1000 cellules scrutées

If Sheets("CONTACTS").Range("A" & I).Value >> >> Sheets("ACCUEIL").Range("F14").Value Then 'recherche valeur dans
colonne

A

Sheets("CONTACTS").Range("N" & "I").Value = Date 'copie la
cellule B correspondante

End If
Next I
Sheets("CONTACTS").Protect DrawingObjects:=True, Contents:=True,
Scenarios:=True, Password:=SebOk
ActiveSheet.EnableSelection = xlUnlockedCells

'cache les deux controles
CmdMiseAJour.Visible = False
LblMiseAJour.Visible = False
Sheets("ACCUEIL").Range("F14").Value = ""

End Sub

merci

"Gerard" <gege@microsoft.fr> a écrit dans le message de news:
42d6c9b1$0$915$8fcfb975@news.wanadoo.fr...

Bonjour
je suis sur la page accueil et je voudrai mettre a jour la cellule N&
I

de la page contacts qui correspond a la ligne trouvée par rapport a
la
cellule A & I

et cela coince au moment de la remplir Sheets("CONTACTS").Range("N" &
"I").Value = Date
voici le code que j'ai dejà preparé

Private Sub CmdMiseAJour_Click()
Sheets("CONTACTS").Select
For I = 5 To 1000 '1000 cellules scrutées

If Sheets("CONTACTS").Range("A" & I).Value >> >>> Sheets("ACCUEIL").Range("F14").Value Then 'recherche valeur dans
colonne A

'deprotege la feuille par le code
Sheets("CONTACTS").Protect DrawingObjects:=True,
Contents:=True,

Scenarios:=True, Password:=SebOk
ActiveSheet.EnableSelection = xlUnlockedCells

Sheets("CONTACTS").Range("N" & "I").Value = Date 'copie la
cellule correspondante

End If
Next I
'reprotege la feuille
Sheets("CONTACTS").Protect DrawingObjects:=True, Contents:=True,
Scenarios:=True, Password:=SebOk
ActiveSheet.EnableSelection = xlUnlockedCells

'cache les deux controles
CmdMiseAJour.Visible = False
LblMiseAJour.Visible = False
Sheets("ACCUEIL").Range("F14").Value = "" ' reviens sur la feuille
de

depart

End Sub

Vous avez filtré cet utilisateur ! Consultez son message

oui, bien sûr, youky, mais toi, tu n'es pas en charge du tampon "QC
passed"...
jps

"Youky" a écrit dans le message de news:

Je confirme,
Youky

"jps" a écrit dans le message de news:

bravo gérard
tu as été plus perspicace que tout le monde ici....
jps

"Gerard" a écrit dans le message de news:
42d73476$0$3120$
je vien de trouver mon erreur, j'en ai passe du temps la dessus , cela
va

me rester dans la tete

j'avais encadre le I de double cote, il pouvait pas reconnaitre la
cellule

merci
"Gerard" a écrit dans le message de news:
42d72b0d$0$886$
bonjour
je m'en suis apercu mais c'est la meme chose
je pense que cela vient de la maniere dont je rempli la cellule

Private Sub CmdMiseAJour_Click()
Dim vardate As Date

Sheets("CONTACTS").Unprotect SebOk ' deprotege
For I = 5 To 1000 '1000 cellules scrutées

If Sheets("CONTACTS").Range("A" & I).Value >> >> Sheets("ACCUEIL").Range("F14").Value Then 'recherche valeur dans
colonne

A

Sheets("CONTACTS").Range("N" & "I").Value = Date 'copie la
cellule B correspondante

End If
Next I
Sheets("CONTACTS").Protect DrawingObjects:=True, Contents:=True,
Scenarios:=True, Password:=SebOk
ActiveSheet.EnableSelection = xlUnlockedCells

'cache les deux controles
CmdMiseAJour.Visible = False
LblMiseAJour.Visible = False
Sheets("ACCUEIL").Range("F14").Value = ""

End Sub

merci

"Gerard" a écrit dans le message de news:
42d6c9b1$0$915$
Bonjour
je suis sur la page accueil et je voudrai mettre a jour la cellule N&
I

de la page contacts qui correspond a la ligne trouvée par rapport a
la
cellule A & I

et cela coince au moment de la remplir Sheets("CONTACTS").Range("N" &
"I").Value = Date
voici le code que j'ai dejà preparé

Private Sub CmdMiseAJour_Click()
Sheets("CONTACTS").Select
For I = 5 To 1000 '1000 cellules scrutées

If Sheets("CONTACTS").Range("A" & I).Value >> >>> Sheets("ACCUEIL").Range("F14").Value Then 'recherche valeur dans
colonne A

'deprotege la feuille par le code
Sheets("CONTACTS").Protect DrawingObjects:=True,
Contents:=True,

Scenarios:=True, Password:=SebOk
ActiveSheet.EnableSelection = xlUnlockedCells

Sheets("CONTACTS").Range("N" & "I").Value = Date 'copie la
cellule correspondante

End If
Next I
'reprotege la feuille
Sheets("CONTACTS").Protect DrawingObjects:=True, Contents:=True,
Scenarios:=True, Password:=SebOk
ActiveSheet.EnableSelection = xlUnlockedCells

'cache les deux controles
CmdMiseAJour.Visible = False
LblMiseAJour.Visible = False
Sheets("ACCUEIL").Range("F14").Value = "" ' reviens sur la feuille
de

depart

End Sub

Youky

15/07/2005 à 13:25

Grand salut Jps,
le tampon "QC passed", je ne connais pas, peut être cela veux dire "
d'astreinte pour donner des réponses sur le forum, ou autres que je pige
pas.???
Youky

"jps" a écrit dans le message de news:

oui, bien sûr, youky, mais toi, tu n'es pas en charge du tampon "QC
passed"...
jps

"Youky" a écrit dans le message de news:

Je confirme,
Youky

"jps" a écrit dans le message de news:

bravo gérard
tu as été plus perspicace que tout le monde ici....
jps

"Gerard" a écrit dans le message de news:
42d73476$0$3120$
je vien de trouver mon erreur, j'en ai passe du temps la dessus ,
cela

va
me rester dans la tete

j'avais encadre le I de double cote, il pouvait pas reconnaitre la
cellule

merci
"Gerard" a écrit dans le message de news:
42d72b0d$0$886$
bonjour
je m'en suis apercu mais c'est la meme chose
je pense que cela vient de la maniere dont je rempli la cellule

Private Sub CmdMiseAJour_Click()
Dim vardate As Date

Sheets("CONTACTS").Unprotect SebOk ' deprotege
For I = 5 To 1000 '1000 cellules scrutées

If Sheets("CONTACTS").Range("A" & I).Value > >> >> Sheets("ACCUEIL").Range("F14").Value Then 'recherche valeur dans
colonne

A

Sheets("CONTACTS").Range("N" & "I").Value = Date 'copie
la

cellule B correspondante

End If
Next I
Sheets("CONTACTS").Protect DrawingObjects:=True, Contents:=True,
Scenarios:=True, Password:=SebOk
ActiveSheet.EnableSelection = xlUnlockedCells

'cache les deux controles
CmdMiseAJour.Visible = False
LblMiseAJour.Visible = False
Sheets("ACCUEIL").Range("F14").Value = ""

End Sub

merci

"Gerard" a écrit dans le message de news:
42d6c9b1$0$915$
Bonjour
je suis sur la page accueil et je voudrai mettre a jour la cellule
N&

I
de la page contacts qui correspond a la ligne trouvée par rapport a
la
cellule A & I

et cela coince au moment de la remplir Sheets("CONTACTS").Range("N"
&

"I").Value = Date
voici le code que j'ai dejà preparé

Private Sub CmdMiseAJour_Click()
Sheets("CONTACTS").Select
For I = 5 To 1000 '1000 cellules scrutées

If Sheets("CONTACTS").Range("A" & I).Value > >> >>> Sheets("ACCUEIL").Range("F14").Value Then 'recherche valeur dans
colonne A

'deprotege la feuille par le code
Sheets("CONTACTS").Protect DrawingObjects:=True,
Contents:=True,

Scenarios:=True, Password:=SebOk
ActiveSheet.EnableSelection = xlUnlockedCells

Sheets("CONTACTS").Range("N" & "I").Value = Date 'copie la
cellule correspondante

End If
Next I
'reprotege la feuille
Sheets("CONTACTS").Protect DrawingObjects:=True, Contents:=True,
Scenarios:=True, Password:=SebOk
ActiveSheet.EnableSelection = xlUnlockedCells

'cache les deux controles
CmdMiseAJour.Visible = False
LblMiseAJour.Visible = False
Sheets("ACCUEIL").Range("F14").Value = "" ' reviens sur la
feuille

de
depart

End Sub

Grand salut Jps,
le tampon "QC passed", je ne connais pas, peut être cela veux dire "
d'astreinte pour donner des réponses sur le forum, ou autres que je pige
pas.???
Youky

"jps" <vaderetrosp@mas> a écrit dans le message de news:
uquyRNQiFHA.1968@TK2MSFTNGP14.phx.gbl...

oui, bien sûr, youky, mais toi, tu n'es pas en charge du tampon "QC
passed"...
jps

"Youky" <bruno.jeune-nospam@wanadoo.fr> a écrit dans le message de news:
uQ1E0HQiFHA.3716@TK2MSFTNGP14.phx.gbl...

Je confirme,
Youky

"jps" <vaderetrosp@mas> a écrit dans le message de news:
uo13wlPiFHA.320@TK2MSFTNGP09.phx.gbl...

bravo gérard
tu as été plus perspicace que tout le monde ici....
jps

"Gerard" <gege@microsoft.fr> a écrit dans le message de news:
42d73476$0$3120$8fcfb975@news.wanadoo.fr...

je vien de trouver mon erreur, j'en ai passe du temps la dessus ,
cela

va

me rester dans la tete

j'avais encadre le I de double cote, il pouvait pas reconnaitre la
cellule

merci
"Gerard" <gege@microsoft.fr> a écrit dans le message de news:
42d72b0d$0$886$8fcfb975@news.wanadoo.fr...

bonjour
je m'en suis apercu mais c'est la meme chose
je pense que cela vient de la maniere dont je rempli la cellule

Private Sub CmdMiseAJour_Click()
Dim vardate As Date

Sheets("CONTACTS").Unprotect SebOk ' deprotege
For I = 5 To 1000 '1000 cellules scrutées

If Sheets("CONTACTS").Range("A" & I).Value > >> >> Sheets("ACCUEIL").Range("F14").Value Then 'recherche valeur dans
colonne

A

Sheets("CONTACTS").Range("N" & "I").Value = Date 'copie
la

cellule B correspondante

End If
Next I
Sheets("CONTACTS").Protect DrawingObjects:=True, Contents:=True,
Scenarios:=True, Password:=SebOk
ActiveSheet.EnableSelection = xlUnlockedCells

'cache les deux controles
CmdMiseAJour.Visible = False
LblMiseAJour.Visible = False
Sheets("ACCUEIL").Range("F14").Value = ""

End Sub

merci

"Gerard" <gege@microsoft.fr> a écrit dans le message de news:
42d6c9b1$0$915$8fcfb975@news.wanadoo.fr...

Bonjour
je suis sur la page accueil et je voudrai mettre a jour la cellule
N&

I

de la page contacts qui correspond a la ligne trouvée par rapport a
la
cellule A & I

et cela coince au moment de la remplir Sheets("CONTACTS").Range("N"
&

"I").Value = Date
voici le code que j'ai dejà preparé

Private Sub CmdMiseAJour_Click()
Sheets("CONTACTS").Select
For I = 5 To 1000 '1000 cellules scrutées

If Sheets("CONTACTS").Range("A" & I).Value > >> >>> Sheets("ACCUEIL").Range("F14").Value Then 'recherche valeur dans
colonne A

'deprotege la feuille par le code
Sheets("CONTACTS").Protect DrawingObjects:=True,
Contents:=True,

Scenarios:=True, Password:=SebOk
ActiveSheet.EnableSelection = xlUnlockedCells

Sheets("CONTACTS").Range("N" & "I").Value = Date 'copie la
cellule correspondante

End If
Next I
'reprotege la feuille
Sheets("CONTACTS").Protect DrawingObjects:=True, Contents:=True,
Scenarios:=True, Password:=SebOk
ActiveSheet.EnableSelection = xlUnlockedCells

'cache les deux controles
CmdMiseAJour.Visible = False
LblMiseAJour.Visible = False
Sheets("ACCUEIL").Range("F14").Value = "" ' reviens sur la
feuille

de

depart

End Sub

Vous avez filtré cet utilisateur ! Consultez son message

Grand salut Jps,
le tampon "QC passed", je ne connais pas, peut être cela veux dire "
d'astreinte pour donner des réponses sur le forum, ou autres que je pige
pas.???
Youky

"jps" a écrit dans le message de news:

oui, bien sûr, youky, mais toi, tu n'es pas en charge du tampon "QC
passed"...
jps

"Youky" a écrit dans le message de news:

Je confirme,
Youky

"jps" a écrit dans le message de news:

bravo gérard
tu as été plus perspicace que tout le monde ici....
jps

"Gerard" a écrit dans le message de news:
42d73476$0$3120$
je vien de trouver mon erreur, j'en ai passe du temps la dessus ,
cela

va
me rester dans la tete

j'avais encadre le I de double cote, il pouvait pas reconnaitre la
cellule

merci
"Gerard" a écrit dans le message de news:
42d72b0d$0$886$
bonjour
je m'en suis apercu mais c'est la meme chose
je pense que cela vient de la maniere dont je rempli la cellule

Private Sub CmdMiseAJour_Click()
Dim vardate As Date

Sheets("CONTACTS").Unprotect SebOk ' deprotege
For I = 5 To 1000 '1000 cellules scrutées

If Sheets("CONTACTS").Range("A" & I).Value > >> >> Sheets("ACCUEIL").Range("F14").Value Then 'recherche valeur dans
colonne

A

Sheets("CONTACTS").Range("N" & "I").Value = Date 'copie
la

cellule B correspondante

End If
Next I
Sheets("CONTACTS").Protect DrawingObjects:=True, Contents:=True,
Scenarios:=True, Password:=SebOk
ActiveSheet.EnableSelection = xlUnlockedCells

'cache les deux controles
CmdMiseAJour.Visible = False
LblMiseAJour.Visible = False
Sheets("ACCUEIL").Range("F14").Value = ""

End Sub

merci

"Gerard" a écrit dans le message de news:
42d6c9b1$0$915$
Bonjour
je suis sur la page accueil et je voudrai mettre a jour la cellule
N&

I
de la page contacts qui correspond a la ligne trouvée par rapport a
la
cellule A & I

et cela coince au moment de la remplir Sheets("CONTACTS").Range("N"
&

"I").Value = Date
voici le code que j'ai dejà preparé

Private Sub CmdMiseAJour_Click()
Sheets("CONTACTS").Select
For I = 5 To 1000 '1000 cellules scrutées

If Sheets("CONTACTS").Range("A" & I).Value > >> >>> Sheets("ACCUEIL").Range("F14").Value Then 'recherche valeur dans
colonne A

'deprotege la feuille par le code
Sheets("CONTACTS").Protect DrawingObjects:=True,
Contents:=True,

Scenarios:=True, Password:=SebOk
ActiveSheet.EnableSelection = xlUnlockedCells

Sheets("CONTACTS").Range("N" & "I").Value = Date 'copie la
cellule correspondante

End If
Next I
'reprotege la feuille
Sheets("CONTACTS").Protect DrawingObjects:=True, Contents:=True,
Scenarios:=True, Password:=SebOk
ActiveSheet.EnableSelection = xlUnlockedCells

'cache les deux controles
CmdMiseAJour.Visible = False
LblMiseAJour.Visible = False
Sheets("ACCUEIL").Range("F14").Value = "" ' reviens sur la
feuille

de
depart

End Sub

jps

15/07/2005 à 14:33

rien de tout cela, youky ; simplement "Quality Control passed" comme sur
toutes ces diverses bricoles qui nous viennent de Hong-Kong ou d'ailleurs
à +
jps

"Youky" a écrit dans le message de
news:uSAU4%

Grand salut Jps,
le tampon "QC passed", je ne connais pas, peut être cela veux dire "
d'astreinte pour donner des réponses sur le forum, ou autres que je pige
pas.???
Youky

"jps" a écrit dans le message de news:

oui, bien sûr, youky, mais toi, tu n'es pas en charge du tampon "QC
passed"...
jps

"Youky" a écrit dans le message de news:

Je confirme,
Youky

"jps" a écrit dans le message de news:

bravo gérard
tu as été plus perspicace que tout le monde ici....
jps

"Gerard" a écrit dans le message de news:
42d73476$0$3120$
je vien de trouver mon erreur, j'en ai passe du temps la dessus ,
cela

va
me rester dans la tete

j'avais encadre le I de double cote, il pouvait pas reconnaitre la
cellule

merci
"Gerard" a écrit dans le message de news:
42d72b0d$0$886$
bonjour
je m'en suis apercu mais c'est la meme chose
je pense que cela vient de la maniere dont je rempli la cellule

Private Sub CmdMiseAJour_Click()
Dim vardate As Date

Sheets("CONTACTS").Unprotect SebOk ' deprotege
For I = 5 To 1000 '1000 cellules scrutées

If Sheets("CONTACTS").Range("A" & I).Value > > >> >> Sheets("ACCUEIL").Range("F14").Value Then 'recherche valeur dans
colonne

A

Sheets("CONTACTS").Range("N" & "I").Value = Date 'copie
la

cellule B correspondante

End If
Next I
Sheets("CONTACTS").Protect DrawingObjects:=True, Contents:=True,
Scenarios:=True, Password:=SebOk
ActiveSheet.EnableSelection = xlUnlockedCells

'cache les deux controles
CmdMiseAJour.Visible = False
LblMiseAJour.Visible = False
Sheets("ACCUEIL").Range("F14").Value = ""

End Sub

merci

"Gerard" a écrit dans le message de news:
42d6c9b1$0$915$
Bonjour
je suis sur la page accueil et je voudrai mettre a jour la
cellule

N&
I
de la page contacts qui correspond a la ligne trouvée par rapport
a

la
cellule A & I

et cela coince au moment de la remplir
Sheets("CONTACTS").Range("N"

&
"I").Value = Date
voici le code que j'ai dejà preparé

Private Sub CmdMiseAJour_Click()
Sheets("CONTACTS").Select
For I = 5 To 1000 '1000 cellules scrutées

If Sheets("CONTACTS").Range("A" & I).Value > > >> >>> Sheets("ACCUEIL").Range("F14").Value Then 'recherche valeur dans
colonne A

'deprotege la feuille par le code
Sheets("CONTACTS").Protect DrawingObjects:=True,
Contents:=True,

Scenarios:=True, Password:=SebOk
ActiveSheet.EnableSelection = xlUnlockedCells

Sheets("CONTACTS").Range("N" & "I").Value = Date 'copie
la

cellule correspondante

End If
Next I
'reprotege la feuille
Sheets("CONTACTS").Protect DrawingObjects:=True, Contents:=True,
Scenarios:=True, Password:=SebOk
ActiveSheet.EnableSelection = xlUnlockedCells

'cache les deux controles
CmdMiseAJour.Visible = False
LblMiseAJour.Visible = False
Sheets("ACCUEIL").Range("F14").Value = "" ' reviens sur la
feuille

de
depart

End Sub

rien de tout cela, youky ; simplement "Quality Control passed" comme sur
toutes ces diverses bricoles qui nous viennent de Hong-Kong ou d'ailleurs
à +
jps

"Youky" <bruno.jeune-nospam@wanadoo.fr> a écrit dans le message de
news:uSAU4%23SiFHA.2644@TK2MSFTNGP09.phx.gbl...

Grand salut Jps,
le tampon "QC passed", je ne connais pas, peut être cela veux dire "
d'astreinte pour donner des réponses sur le forum, ou autres que je pige
pas.???
Youky

"jps" <vaderetrosp@mas> a écrit dans le message de news:
uquyRNQiFHA.1968@TK2MSFTNGP14.phx.gbl...

oui, bien sûr, youky, mais toi, tu n'es pas en charge du tampon "QC
passed"...
jps

"Youky" <bruno.jeune-nospam@wanadoo.fr> a écrit dans le message de news:
uQ1E0HQiFHA.3716@TK2MSFTNGP14.phx.gbl...

Je confirme,
Youky

"jps" <vaderetrosp@mas> a écrit dans le message de news:
uo13wlPiFHA.320@TK2MSFTNGP09.phx.gbl...

bravo gérard
tu as été plus perspicace que tout le monde ici....
jps

"Gerard" <gege@microsoft.fr> a écrit dans le message de news:
42d73476$0$3120$8fcfb975@news.wanadoo.fr...

je vien de trouver mon erreur, j'en ai passe du temps la dessus ,
cela

va

me rester dans la tete

j'avais encadre le I de double cote, il pouvait pas reconnaitre la
cellule

merci
"Gerard" <gege@microsoft.fr> a écrit dans le message de news:
42d72b0d$0$886$8fcfb975@news.wanadoo.fr...

bonjour
je m'en suis apercu mais c'est la meme chose
je pense que cela vient de la maniere dont je rempli la cellule

Private Sub CmdMiseAJour_Click()
Dim vardate As Date

Sheets("CONTACTS").Unprotect SebOk ' deprotege
For I = 5 To 1000 '1000 cellules scrutées

If Sheets("CONTACTS").Range("A" & I).Value > > >> >> Sheets("ACCUEIL").Range("F14").Value Then 'recherche valeur dans
colonne

A

Sheets("CONTACTS").Range("N" & "I").Value = Date 'copie
la

cellule B correspondante

End If
Next I
Sheets("CONTACTS").Protect DrawingObjects:=True, Contents:=True,
Scenarios:=True, Password:=SebOk
ActiveSheet.EnableSelection = xlUnlockedCells

'cache les deux controles
CmdMiseAJour.Visible = False
LblMiseAJour.Visible = False
Sheets("ACCUEIL").Range("F14").Value = ""

End Sub

merci

"Gerard" <gege@microsoft.fr> a écrit dans le message de news:
42d6c9b1$0$915$8fcfb975@news.wanadoo.fr...

Bonjour
je suis sur la page accueil et je voudrai mettre a jour la
cellule

N&

I

de la page contacts qui correspond a la ligne trouvée par rapport
a

la
cellule A & I

et cela coince au moment de la remplir
Sheets("CONTACTS").Range("N"

&

"I").Value = Date
voici le code que j'ai dejà preparé

Private Sub CmdMiseAJour_Click()
Sheets("CONTACTS").Select
For I = 5 To 1000 '1000 cellules scrutées

If Sheets("CONTACTS").Range("A" & I).Value > > >> >>> Sheets("ACCUEIL").Range("F14").Value Then 'recherche valeur dans
colonne A

'deprotege la feuille par le code
Sheets("CONTACTS").Protect DrawingObjects:=True,
Contents:=True,

Scenarios:=True, Password:=SebOk
ActiveSheet.EnableSelection = xlUnlockedCells

Sheets("CONTACTS").Range("N" & "I").Value = Date 'copie
la

cellule correspondante

End If
Next I
'reprotege la feuille
Sheets("CONTACTS").Protect DrawingObjects:=True, Contents:=True,
Scenarios:=True, Password:=SebOk
ActiveSheet.EnableSelection = xlUnlockedCells

'cache les deux controles
CmdMiseAJour.Visible = False
LblMiseAJour.Visible = False
Sheets("ACCUEIL").Range("F14").Value = "" ' reviens sur la
feuille

de

depart

End Sub

Vous avez filtré cet utilisateur ! Consultez son message

rien de tout cela, youky ; simplement "Quality Control passed" comme sur
toutes ces diverses bricoles qui nous viennent de Hong-Kong ou d'ailleurs
à +
jps

"Youky" a écrit dans le message de
news:uSAU4%

Grand salut Jps,
le tampon "QC passed", je ne connais pas, peut être cela veux dire "
d'astreinte pour donner des réponses sur le forum, ou autres que je pige
pas.???
Youky

"jps" a écrit dans le message de news:

oui, bien sûr, youky, mais toi, tu n'es pas en charge du tampon "QC
passed"...
jps

"Youky" a écrit dans le message de news:

Je confirme,
Youky

"jps" a écrit dans le message de news:

bravo gérard
tu as été plus perspicace que tout le monde ici....
jps

"Gerard" a écrit dans le message de news:
42d73476$0$3120$
je vien de trouver mon erreur, j'en ai passe du temps la dessus ,
cela

va
me rester dans la tete

j'avais encadre le I de double cote, il pouvait pas reconnaitre la
cellule

merci
"Gerard" a écrit dans le message de news:
42d72b0d$0$886$
bonjour
je m'en suis apercu mais c'est la meme chose
je pense que cela vient de la maniere dont je rempli la cellule

Private Sub CmdMiseAJour_Click()
Dim vardate As Date

Sheets("CONTACTS").Unprotect SebOk ' deprotege
For I = 5 To 1000 '1000 cellules scrutées

If Sheets("CONTACTS").Range("A" & I).Value > > >> >> Sheets("ACCUEIL").Range("F14").Value Then 'recherche valeur dans
colonne

A

Sheets("CONTACTS").Range("N" & "I").Value = Date 'copie
la

cellule B correspondante

End If
Next I
Sheets("CONTACTS").Protect DrawingObjects:=True, Contents:=True,
Scenarios:=True, Password:=SebOk
ActiveSheet.EnableSelection = xlUnlockedCells

'cache les deux controles
CmdMiseAJour.Visible = False
LblMiseAJour.Visible = False
Sheets("ACCUEIL").Range("F14").Value = ""

End Sub

merci

"Gerard" a écrit dans le message de news:
42d6c9b1$0$915$
Bonjour
je suis sur la page accueil et je voudrai mettre a jour la
cellule

N&
I
de la page contacts qui correspond a la ligne trouvée par rapport
a

la
cellule A & I

et cela coince au moment de la remplir
Sheets("CONTACTS").Range("N"

&
"I").Value = Date
voici le code que j'ai dejà preparé

Private Sub CmdMiseAJour_Click()
Sheets("CONTACTS").Select
For I = 5 To 1000 '1000 cellules scrutées

If Sheets("CONTACTS").Range("A" & I).Value > > >> >>> Sheets("ACCUEIL").Range("F14").Value Then 'recherche valeur dans
colonne A

'deprotege la feuille par le code
Sheets("CONTACTS").Protect DrawingObjects:=True,
Contents:=True,

Scenarios:=True, Password:=SebOk
ActiveSheet.EnableSelection = xlUnlockedCells

Sheets("CONTACTS").Range("N" & "I").Value = Date 'copie
la

cellule correspondante

End If
Next I
'reprotege la feuille
Sheets("CONTACTS").Protect DrawingObjects:=True, Contents:=True,
Scenarios:=True, Password:=SebOk
ActiveSheet.EnableSelection = xlUnlockedCells

'cache les deux controles
CmdMiseAJour.Visible = False
LblMiseAJour.Visible = False
Sheets("ACCUEIL").Range("F14").Value = "" ' reviens sur la
feuille

de
depart

End Sub

remplir une cellule

8 réponses

Veuillez sélectionner un problème