Changer de valeur de cell dans onglet 1 qd cell a ou b ou c de onglet 2 est rempli

[AKSooL]

BOnjour

je m explique

j'ai l onglet 1 , avec une cellule W1 par exemple , qui doit remvoyer une valeur tel que , rien , en attente, en cours, fini
si la cell A1 de l onglet 2 est entré , il doit mettre la cell W1 de l onglet 1 - en attente
si la cell B1 de l onglet 2 est entré , il doit mettre la meme cell W1 de l onglet 1 - en cours
si la cell C1 de l onglet 2 est entré , il doit mettre la meme cell W1 de l onglet 1 - Fini

comment faire avec un code VBA , merci

 

[Evelynetfrancois]

Re : Changer de valeur de cell dans onglet 1 qd cell a ou b ou c de onglet 2 est remp

bonsoir AKSooL
si j ai tout compris

une approche jointe

E et F
oups !!! trop vite
aprés relecture du probleme
tu ne veux pas renomer l onglet mais juste mettre tes mots sur la feuille 1

Public Sub test()
If Sheets(2).Range("A1") <> "" Then
Sheets(1).Range("W1").Value = "en attente"
End If
If Sheets(2).Range("B1") <> "" Then
Sheets(1).Range("W1").Value = "En COURS"
End If
If Sheets(2).Range("C1") <> "" Then
Sheets(1).Range("W1").Value = "FINI"
End If

End Sub

 

[AKSooL]

Re : Changer de valeur de cell dans onglet 1 qd cell a ou b ou c de onglet 2 est remp

ca marque toujours EN cours dans un onglet et FIni dans l autre

 

[Evelynetfrancois]

Re : Changer de valeur de cell dans onglet 1 qd cell a ou b ou c de onglet 2 est remp

oui evidement je ne connais pas le nom des feuilles lol

Sheets(1) devient par exemple Sheets("mafeuille") avec les crochets !!!
E et F

 

[AKSooL]

Re : Changer de valeur de cell dans onglet 1 qd cell a ou b ou c de onglet 2 est remp

sheets("1") est l onglet ou le resultat doit apparaitre ( en cours, ...)
sheets("2") est l'onglet ou l on rentre les valeurs A1 , B1 , C1

 

[Evelynetfrancois]

Re : Changer de valeur de cell dans onglet 1 qd cell a ou b ou c de onglet 2 est remp

Public Sub test()
If Sheets(2).Range("A1") = "" Then
Sheets(1).Range("W1").Value = ""
End If
If Sheets(2).Range("A1") <> "" Then
Sheets(1).Range("W1").Value = "en attente"
End If
If Sheets(2).Range("B1") <> "" Then
Sheets(1).Range("W1").Value = "En COURS"
End If
If Sheets(2).Range("C1") <> "" Then
Sheets(1).Range("W1").Value = "FINI"
End If
End Sub

'voila .........et avec des crochets si les 1 et 2 sont les noms de tes feuilles

Public Sub test()
If Sheets("2").Range("A1") = "" Then
Sheets("1").Range("W1").Value = ""
End If
If Sheets("2").Range("A1") <> "" Then
Sheets("1").Range("W1").Value = "en attente"
End If
If Sheets("2").Range("B1") <> "" Then
Sheets("1").Range("W1").Value = "En COURS"
End If
If Sheets("2").Range("C1") <> "" Then
Sheets("1").Range("W1").Value = "FINI"
End If
End Sub

 

[AKSooL]

Re : Changer de valeur de cell dans onglet 1 qd cell a ou b ou c de onglet 2 est remp

ah je viens de comprendre
il faut executer la macro , arf

mais est ce que ca marche en classeur partagé ca

je vais tester

 

[AKSooL]

Re : Changer de valeur de cell dans onglet 1 qd cell a ou b ou c de onglet 2 est remp

et sqans passer par une macro , y a t il moyen

 

[Evelynetfrancois]

Re : Changer de valeur de cell dans onglet 1 qd cell a ou b ou c de onglet 2 est remp

re là tu a le choix .......

Pour eviter un bouton (c'était une idée parmis tant d autres)

tu colles sur la feuille Sheets("2")dans VBAProjet



Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Range("A1") = "" Then
Sheets("1").Range("W1").Value = ""
End If
If Range("A1") <> "" Then
Sheets("1").Range("W1").Value = "en attente"
End If
If Range("B1") <> "" Then
Sheets("1").Range("W1").Value = "En COURS"
End If
If Range("C1") <> "" Then
Sheets("1").Range("W1").Value = "FINI"
End If
End Sub

 

[AKSooL]

Re : Changer de valeur de cell dans onglet 1 qd cell a ou b ou c de onglet 2 est remp

ok comme ca c mieux
encore ptet une derniere question et des moindres

comment l appliquer pour toutes les cellulles de A1-A100 / B1-B100 /C1-C100
pour W1-W100

en gros pour chaque ligne

Merci encore d'avance

 

[Evelynetfrancois]

Re : Changer de valeur de cell dans onglet 1 qd cell a ou b ou c de onglet 2 est remp

oula !! lol là ca change tout
tu as raison une bonne formule recopier de W1 à W100 devrait etre plus simple
je cherche ..........

mais c'est sur !!! c'est possible ... on y croit ... cherchons

E et F

 

[AKSooL]

Re : Changer de valeur de cell dans onglet 1 qd cell a ou b ou c de onglet 2 est remp

le probleme , c est que c pas 100 , mais environ 7500 cellules
donc apres lourdeur du fichier ( avec les autres code VBA autour )

car pour etre france avec toi
j avais la formule suivante sur la fameuse W4 ( onglet demande )
=SI(Résultats!S4<>"","Fini",SI(Résultats!O4<>"","En Vérification",SI(Résultats!N4<>"","En cours",SI(Résultats!N4<>"","En cours",SI(Résultats!K4<>"","En attente",))))) - onglet resultats comme tu peux voir

elle marche , mais copié sur 7500 ligne , ca alourdit enormement le fichier ( surtout en partagé

donc dis moi si en VBA c possible

 

[Evelynetfrancois]

Re : Changer de valeur de cell dans onglet 1 qd cell a ou b ou c de onglet 2 est remp

RE
voici une boucle sur 10000 lignes
a mettre sur un bouton si tu veux
essaye en lancant la macro


E et F

Sub TEST()
With Sheets("2")
For k = 1 To 10000
If .Cells(k, 1) = "" Then
Sheets("1").Cells(k, 23).Value = "RRRRRR"
End If
If .Cells(k, 1) <> "" Then
Sheets("1").Cells(k, 23).Value = "en attente"
End If
If .Cells(k, 2) <> "" Then
Sheets("1").Cells(k, 23).Value = "En COURS"
End If
If .Cells(k, 3) <> "" Then
Sheets("1").Cells(k, 23).Value = "FINI"
End If
Next
End With
End Sub

 

[AKSooL]

Re : Changer de valeur de cell dans onglet 1 qd cell a ou b ou c de onglet 2 est remp

marche pas en classeur partagé , grrrrrr

 

[Evelynetfrancois]

Re : Changer de valeur de cell dans onglet 1 qd cell a ou b ou c de onglet 2 est remp

je vois pas , n'y ne comprend pas pourquoi ????

la macro est dans un module du classeur
le classeur est enregistreé avec cette nouvelle macro ......
ca devrait suivre partout !!!!

peut etre une explication des FORTS de ce forum ??

attendons ..

E et F