Remplir des cellules sur conditions

[Poto]

Bonsoir a tous,

je recherche un peu d'aide pour regler un petit probleme :

j'essaye de faire en sorte que lorsque le mot "ON" est selectionner (a partir d un menu deroulant) dans la colonne A, des donnees s'inscrivent automatiquement dans les 3 cellules a droite du mot "ON"...

actuellement j ai ce code en place, mais il ne fait pas tout a fait le job...

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

''''''''''''''''''''''''' ACTIVITY et Shift par defaut


Dim Activity As String, Debut As String, Fin As String, Pause As String

Activity = "ON"
Debut = "20H00"
Fin = "05H00"
Pause = "01H00"


If ActiveCell = Activity Then

ActiveCell.Offset(0, 1).Value = Debut
ActiveCell.Offset(0, 2).Value = Fin
ActiveCell.Offset(0, 3).Value = Pause
End If

End Sub

Ce qu'il se passe actuellement c'est que lorsque je selectionne "ON", rien ne s inscrit dans les colonnes adjacentes, je dois reselectionner la case contenant "ON" pour que les données apparaissent...

Comment faire pour que les donnees apparaissent des la selection du mot "ON" et sans que l'integralité des cellules contenant le mot soit traiter (je peux pas faire un worksheet_change pour cette raison) ??


merci d avance a tous 😉

 

[Compte Supprimé 979]

Re : Remplir des cellules sur conditions

Bonjour Poto,

Pourquoi utiliser du VBA pour ça 😕
Quel est l'intérêt ?

A+

 

[Poto]

Re : Remplir des cellules sur conditions

l'interet c est que j utilise un tableau composer de 365 jours comportant pres de 120 cellules par jours, et que je dois pouvoir changer certains terme de la formule a la volée ( de plus, j ai pas mal de cellules verouillées en plein millieu )... voila pk vba, car avant ca j utiliser un bon vieux Si(A5="ON";"17H00";"") ca marcher nikel, mais disons que je veuille changer pour toute les cellules 17H00 par 20H00, ben je dois tout refaire.....

sinon, personne n a de suggestions ?


merci d avance 😉

 

[bcharef]

Re : Remplir des cellules sur conditions

Bonjour Poto & BrunoM45,
Bonjour à toutes et à tous.

Afin d'éviter à tout refaire, il est souhaitable de saisir dans une cellule distincte, par exemple en A1 :17h00 et reformuler la formule comme suit:

=Si(A5="ON";[COLOR="Navy"][B]$A$1[/B][/COLOR];"")

au lieu de :

Si(A5="ON";[B][COLOR="Navy"]"17H00"[/COLOR][/B];""

A vous lire et bon courage.

Cordialement.

BCharef

 

[jeanpierre]

Re : Remplir des cellules sur conditions

Bonjour Poto, Bruno,

"que je veuille changer pour toute les cellules 17H00 par 20H00"

Le menu Edition Remplacer sert à quoi à ton avis...????

Très rapide, voire presque instantané avec l'habitude.

Jean-Pierre

 

[néné06]

Re : Remplir des cellules sur conditions

bonjour Poto

Je pense qu'il y à un probléme du type

Range(" ") .select

ActiveCell.Offset(0, 1).Value trouve t'il bien la cellule ?

un petit tableau d'exemple serait le bien venu.

cordialement

Néné 06

 

[Poto]

Re : Remplir des cellules sur conditions

Salut JeanPierre et BHref,

mon prob est plus complexe qu il n y parait...

j ai deja utiliser la technik proposer par bhref,et la technik que tu propose JeanPerre n'est pas faisable pour moi car je creer une appli pour une boite pas pour moi, les utilisateurs n ont pas accer au menu rechercher et remplacer...

en fait, actuellement j'ai un planning complet sur une annee avec une formule du type Si(A5="ON";"17H00";"") sur des cellules comportant des menu deroulant et ca marche nikel mais lorsqu'une valeur est selectionner a l aide du menu deroulant, la formule disparait, ce qui est normal mais pas souhaiter, c est pour ca que je recherche une technik en vba....

quoi qu il en soit, merci pour vos reponses si rapides 😉

 

[Poto]

Re : Remplir des cellules sur conditions

bonjour Poto

Je pense qu'il y à un probléme du type

Range(" ") .select

ActiveCell.Offset(0, 1).Value trouve t'il bien la cellule ?

un petit tableau d'exemple serait le bien venu.

cordialement

Néné 06

Salut Néné 😉

Activecell marche bien, il trouve bien la valeur "ON" et les valeurs s inscrivent correctement avec Activecell.Offset, mais pour que les valeurs apparaissent, il faut que je deselectionne le menu deroulant où ce trouve "ON" pour ensuite la reselectionner(ie : si le menu deroulant avec "ON" est en cellules A3, je dois selectionner la cellules en dessous par exemple,puis reselectionner la cellules A3, et alors seulement les valeurs apparaissent....

un exemple est fournit avec mon premier post🙂

cordialement 😉

 

[néné06]

Re : Remplir des cellules sur conditions

Salut Poto
C'est exact pour l'exemple , mais je ne peux l'ouvrir car je suis sur excel 2000

A+

 

[Poto]

Re : Remplir des cellules sur conditions

voici une version qui devrait fonctionner pour toi 😉

merci encore de ton aide 😉

 

[Poto]

Re : Remplir des cellules sur conditions

personne n a une petite idée ?? 🙁