de la part de maboule Microsoft suite 2003
Je souhaiterais, a partir d'une cellule d' un tableau que
l' on pourrais appeler source, appeler d' autre tableau. Par exemple: en
tapant un numero (ex: 098) dans la cellule B5 du tableau source je
souhaiterais que le tableau portant ce numero s' affiche avec les donnees qu'
il contient, pouvoir les modifier puis ramener l' ensemble a sa place. Je
precise que les tabeaux ce trouvent dans d' autre feuilles. Si quelqu' un
peut m' aider je l' en remercie vivement par avance.
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Garette
Bonsoir,
Le code suivant met une croix dans la colonne B en face de l'heure au 1/4 d'heure inferieur à l'heure actuelle.
Sub Test() Select Case Minute(Time) Case 1 To 14 LaMinute = 0 Case 15 To 29 LaMinute = 15 Case 30 To 44 LaMinute = 30 Case 45 To 59 LaMinute = 45 End Select For Each X In Range("A2:A81") If TimeSerial(Hour(X.Value), Minute(X.Value), 0) = TimeSerial(Hour(Time), LaMinute, 0) Then X.Offset(0, 1).Value = "X" End If Next End Sub
"maboule1" a écrit dans le message de news:
de la part de maboule Microsoft suite 2003 Je souhaiterais, a partir d'une cellule d' un tableau que l' on pourrais appeler source, appeler d' autre tableau. Par exemple: en tapant un numero (ex: 098) dans la cellule B5 du tableau source je souhaiterais que le tableau portant ce numero s' affiche avec les donnees qu' il contient, pouvoir les modifier puis ramener l' ensemble a sa place. Je precise que les tabeaux ce trouvent dans d' autre feuilles. Si quelqu' un peut m' aider je l' en remercie vivement par avance.
Bonsoir,
Le code suivant met une croix dans la colonne B en face de l'heure au 1/4
d'heure inferieur à l'heure actuelle.
Sub Test()
Select Case Minute(Time)
Case 1 To 14
LaMinute = 0
Case 15 To 29
LaMinute = 15
Case 30 To 44
LaMinute = 30
Case 45 To 59
LaMinute = 45
End Select
For Each X In Range("A2:A81")
If TimeSerial(Hour(X.Value), Minute(X.Value), 0) =
TimeSerial(Hour(Time), LaMinute, 0) Then
X.Offset(0, 1).Value = "X"
End If
Next
End Sub
"maboule1" <maboule1@discussions.microsoft.com> a écrit dans le message de
news: DBE16975-C02A-4933-B8C3-9365AC1D6D97@microsoft.com...
de la part de maboule Microsoft suite 2003
Je souhaiterais, a partir d'une cellule d' un tableau
que
l' on pourrais appeler source, appeler d' autre tableau. Par exemple: en
tapant un numero (ex: 098) dans la cellule B5 du tableau source je
souhaiterais que le tableau portant ce numero s' affiche avec les donnees
qu'
il contient, pouvoir les modifier puis ramener l' ensemble a sa place. Je
precise que les tabeaux ce trouvent dans d' autre feuilles. Si quelqu' un
peut m' aider je l' en remercie vivement par avance.
Le code suivant met une croix dans la colonne B en face de l'heure au 1/4 d'heure inferieur à l'heure actuelle.
Sub Test() Select Case Minute(Time) Case 1 To 14 LaMinute = 0 Case 15 To 29 LaMinute = 15 Case 30 To 44 LaMinute = 30 Case 45 To 59 LaMinute = 45 End Select For Each X In Range("A2:A81") If TimeSerial(Hour(X.Value), Minute(X.Value), 0) = TimeSerial(Hour(Time), LaMinute, 0) Then X.Offset(0, 1).Value = "X" End If Next End Sub
"maboule1" a écrit dans le message de news:
de la part de maboule Microsoft suite 2003 Je souhaiterais, a partir d'une cellule d' un tableau que l' on pourrais appeler source, appeler d' autre tableau. Par exemple: en tapant un numero (ex: 098) dans la cellule B5 du tableau source je souhaiterais que le tableau portant ce numero s' affiche avec les donnees qu' il contient, pouvoir les modifier puis ramener l' ensemble a sa place. Je precise que les tabeaux ce trouvent dans d' autre feuilles. Si quelqu' un peut m' aider je l' en remercie vivement par avance.
Garette
Ne pas tenir compte du précédent message ...
"Garette" a écrit dans le message de news:
Bonsoir,
Le code suivant met une croix dans la colonne B en face de l'heure au 1/4 d'heure inferieur à l'heure actuelle.
Sub Test() Select Case Minute(Time) Case 1 To 14 LaMinute = 0 Case 15 To 29 LaMinute = 15 Case 30 To 44 LaMinute = 30 Case 45 To 59 LaMinute = 45 End Select For Each X In Range("A2:A81") If TimeSerial(Hour(X.Value), Minute(X.Value), 0) = TimeSerial(Hour(Time), LaMinute, 0) Then X.Offset(0, 1).Value = "X" End If Next End Sub
"maboule1" a écrit dans le message de news:
de la part de maboule Microsoft suite 2003 Je souhaiterais, a partir d'une cellule d' un tableau que l' on pourrais appeler source, appeler d' autre tableau. Par exemple: en tapant un numero (ex: 098) dans la cellule B5 du tableau source je souhaiterais que le tableau portant ce numero s' affiche avec les donnees qu' il contient, pouvoir les modifier puis ramener l' ensemble a sa place. Je precise que les tabeaux ce trouvent dans d' autre feuilles. Si quelqu' un peut m' aider je l' en remercie vivement par avance.
Ne pas tenir compte du précédent message ...
"Garette" <nospam.Garette@hotmail.com> a écrit dans le message de news:
OraII9SUHHA.4076@TK2MSFTNGP05.phx.gbl...
Bonsoir,
Le code suivant met une croix dans la colonne B en face de l'heure au 1/4
d'heure inferieur à l'heure actuelle.
Sub Test()
Select Case Minute(Time)
Case 1 To 14
LaMinute = 0
Case 15 To 29
LaMinute = 15
Case 30 To 44
LaMinute = 30
Case 45 To 59
LaMinute = 45
End Select
For Each X In Range("A2:A81")
If TimeSerial(Hour(X.Value), Minute(X.Value), 0) =
TimeSerial(Hour(Time), LaMinute, 0) Then
X.Offset(0, 1).Value = "X"
End If
Next
End Sub
"maboule1" <maboule1@discussions.microsoft.com> a écrit dans le message de
news: DBE16975-C02A-4933-B8C3-9365AC1D6D97@microsoft.com...
de la part de maboule Microsoft suite 2003
Je souhaiterais, a partir d'une cellule d' un tableau
que
l' on pourrais appeler source, appeler d' autre tableau. Par exemple: en
tapant un numero (ex: 098) dans la cellule B5 du tableau source je
souhaiterais que le tableau portant ce numero s' affiche avec les donnees
qu'
il contient, pouvoir les modifier puis ramener l' ensemble a sa place. Je
precise que les tabeaux ce trouvent dans d' autre feuilles. Si quelqu' un
peut m' aider je l' en remercie vivement par avance.
Le code suivant met une croix dans la colonne B en face de l'heure au 1/4 d'heure inferieur à l'heure actuelle.
Sub Test() Select Case Minute(Time) Case 1 To 14 LaMinute = 0 Case 15 To 29 LaMinute = 15 Case 30 To 44 LaMinute = 30 Case 45 To 59 LaMinute = 45 End Select For Each X In Range("A2:A81") If TimeSerial(Hour(X.Value), Minute(X.Value), 0) = TimeSerial(Hour(Time), LaMinute, 0) Then X.Offset(0, 1).Value = "X" End If Next End Sub
"maboule1" a écrit dans le message de news:
de la part de maboule Microsoft suite 2003 Je souhaiterais, a partir d'une cellule d' un tableau que l' on pourrais appeler source, appeler d' autre tableau. Par exemple: en tapant un numero (ex: 098) dans la cellule B5 du tableau source je souhaiterais que le tableau portant ce numero s' affiche avec les donnees qu' il contient, pouvoir les modifier puis ramener l' ensemble a sa place. Je precise que les tabeaux ce trouvent dans d' autre feuilles. Si quelqu' un peut m' aider je l' en remercie vivement par avance.
maboule1
Ne pas tenir compte du précédent message ...
"Garette" a écrit dans le message de news:
Bonsoir,
Le code suivant met une croix dans la colonne B en face de l'heure au 1/4 d'heure inferieur à l'heure actuelle.
Sub Test() Select Case Minute(Time) Case 1 To 14 LaMinute = 0 Case 15 To 29 LaMinute = 15 Case 30 To 44 LaMinute = 30 Case 45 To 59 LaMinute = 45 End Select For Each X In Range("A2:A81") If TimeSerial(Hour(X.Value), Minute(X.Value), 0) = TimeSerial(Hour(Time), LaMinute, 0) Then X.Offset(0, 1).Value = "X" End If Next End Sub
"maboule1" a écrit dans le message de news:
de la part de maboule Microsoft suite 2003 Je souhaiterais, a partir d'une cellule d' un tableau que l' on pourrais appeler source, appeler d' autre tableau. Par exemple: en tapant un numero (ex: 098) dans la cellule B5 du tableau source je souhaiterais que le tableau portant ce numero s' affiche avec les donnees qu' il contient, pouvoir les modifier puis ramener l' ensemble a sa place. Je precise que les tabeaux ce trouvent dans d' autre feuilles. Si quelqu' un peut m' aider je l' en remercie vivement par avance.
je ne comprend pas bien la solution que vous me suggere. il ne sagit pas d' un probleme d' heure mais d' utiliser une cellule d' un tableau se trouvant dans une feuille ou j' inscrirais par exemple 054 ou 566 ou 999 ce qui ferais apparaitre le tableau correspondant qui se trouve dans une autre feuille, de saisir des donnees dans d' autre cellules et de rammener le tout dans le tableau d' origine. Peut etre que je m' exprime mal merci pour vos reponses
Ne pas tenir compte du précédent message ...
"Garette" <nospam.Garette@hotmail.com> a écrit dans le message de news:
OraII9SUHHA.4076@TK2MSFTNGP05.phx.gbl...
Bonsoir,
Le code suivant met une croix dans la colonne B en face de l'heure au 1/4
d'heure inferieur à l'heure actuelle.
Sub Test()
Select Case Minute(Time)
Case 1 To 14
LaMinute = 0
Case 15 To 29
LaMinute = 15
Case 30 To 44
LaMinute = 30
Case 45 To 59
LaMinute = 45
End Select
For Each X In Range("A2:A81")
If TimeSerial(Hour(X.Value), Minute(X.Value), 0) =
TimeSerial(Hour(Time), LaMinute, 0) Then
X.Offset(0, 1).Value = "X"
End If
Next
End Sub
"maboule1" <maboule1@discussions.microsoft.com> a écrit dans le message de
news: DBE16975-C02A-4933-B8C3-9365AC1D6D97@microsoft.com...
de la part de maboule Microsoft suite 2003
Je souhaiterais, a partir d'une cellule d' un tableau
que
l' on pourrais appeler source, appeler d' autre tableau. Par exemple: en
tapant un numero (ex: 098) dans la cellule B5 du tableau source je
souhaiterais que le tableau portant ce numero s' affiche avec les donnees
qu'
il contient, pouvoir les modifier puis ramener l' ensemble a sa place. Je
precise que les tabeaux ce trouvent dans d' autre feuilles. Si quelqu' un
peut m' aider je l' en remercie vivement par avance.
je ne comprend pas bien la solution que vous me suggere. il ne sagit pas d' un probleme d' heure mais d' utiliser une cellule d' un tableau se trouvant dans une feuille ou j' inscrirais par exemple 054 ou 566 ou 999 ce qui ferais apparaitre le tableau correspondant qui se trouve dans une autre feuille, de saisir des donnees dans d' autre cellules et de rammener le tout dans le tableau d' origine. Peut etre que je m' exprime mal
merci pour vos reponses
Le code suivant met une croix dans la colonne B en face de l'heure au 1/4 d'heure inferieur à l'heure actuelle.
Sub Test() Select Case Minute(Time) Case 1 To 14 LaMinute = 0 Case 15 To 29 LaMinute = 15 Case 30 To 44 LaMinute = 30 Case 45 To 59 LaMinute = 45 End Select For Each X In Range("A2:A81") If TimeSerial(Hour(X.Value), Minute(X.Value), 0) = TimeSerial(Hour(Time), LaMinute, 0) Then X.Offset(0, 1).Value = "X" End If Next End Sub
"maboule1" a écrit dans le message de news:
de la part de maboule Microsoft suite 2003 Je souhaiterais, a partir d'une cellule d' un tableau que l' on pourrais appeler source, appeler d' autre tableau. Par exemple: en tapant un numero (ex: 098) dans la cellule B5 du tableau source je souhaiterais que le tableau portant ce numero s' affiche avec les donnees qu' il contient, pouvoir les modifier puis ramener l' ensemble a sa place. Je precise que les tabeaux ce trouvent dans d' autre feuilles. Si quelqu' un peut m' aider je l' en remercie vivement par avance.
je ne comprend pas bien la solution que vous me suggere. il ne sagit pas d' un probleme d' heure mais d' utiliser une cellule d' un tableau se trouvant dans une feuille ou j' inscrirais par exemple 054 ou 566 ou 999 ce qui ferais apparaitre le tableau correspondant qui se trouve dans une autre feuille, de saisir des donnees dans d' autre cellules et de rammener le tout dans le tableau d' origine. Peut etre que je m' exprime mal merci pour vos reponses
