XL 2010 erreur dans une macro

[JEF73]

Bonjour,

j'ai besoin de recopier les résultats des cellules de ma feuille nommé "IMM" colonne AC4 a AC503 dans une seul cellule de la feuille nommé "Master" cellule E5

exemple: AC4 =X alors X apparait a E5

ensuite : AC5=0 alors 0 apparait a E5

voici la formule que j'ai inscrit:

'Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Sheets("IMM").Range("AC4:AC503")) Is Nothing Then
Sheets("Master").Range("E5").Value = Target.Value
End If
End Sub

quelqu'un peut me dire ou j'ai fait l'erreur

merci

 

[Jacky67]

Bonjour,

j'ai besoin de recopier les résultats des cellules de ma feuille nommé "IMM" colonne AC4 a AC503 dans une seul cellule de la feuille nommé "Master" cellule E5

exemple: AC4 =X alors X apparait a E5

ensuite : AC5=0 alors 0 apparait a E5

voici la formule que j'ai inscrit:

'Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Sheets("IMM").Range("AC4:AC503")) Is Nothing Then
Sheets("Master").Range("E5").Value = Target.Value
End If
End Sub

quelqu'un peut me dire ou j'ai fait l'erreur

merci

Bonjour,
Il n'y a pas d'erreur, cette macro fait exactement ce qui lui est demandé
*Enlever l'apostrophe devant Private évidemment

 

[eriiic]

Bonjour à tous,

recopier les résultats
Faut-il comprendre que s'il y a 200 résultats tu les veux tous dans la cellule ?
Dans AC ce sont bien des saisies ?
erric

 

[JEF73]

Bonjour eriiic

Dans ma colonne AC4:AC100 chaque cellule a une formule Si
exemple la formule dans la cellule AC4 est =SI(CB4=VRAI;"X";" ") AC5 est =SI(CB5=VRAI;"X";" ") jusqu'à AC100
J'ai besoin de faire apparait le X dans ma cellule E5 de ma feuille Master a chaque fois que le X apparait dans la colonne AC. je dois faire cette opération pour 50 colonnes dans 50 cellules
merci pour votre aide

 

[eriiic]

2 questions, 1 seule réponse. On ne sait toujours pas ce que tu veux exactement en E5
J'ajoute :
C'est quoi l'intérêt de dupliquer les VRAI en les remplaçant par des X ?
Pourquoi un " " trompeur et non une chaine vide "" ?

Dépose plutôt un fichier anonymisé en expliquant clairement et en détail ton besoin.
eric

 

[JEF73]

Bonjour Éric

le X m'avise quand une série de numéro est sorti
avec le temps, je désir ajouter plusieurs séries donc plusieurs onglets
que je voudrait regrouper sur mon onglet "Master" pour ne pas a avoir a cliquer sur chaque onglet pour vérifier si un X est sorti
Exemple: dans le futur j'ai 3 onglets avec 50 cases chacune numéroter 1 a 150 ,le X au numéro 120 qui est a l'onglet 3 sort. La case 120 sur l'onglet "Master" m'avise


mon fichier est loin d'être terminer , mais voici ce que je peut t'envoyer pour l'instant

je suis ok pour faire les étapes 1 a 3 mais je bloque a l'étape 4 car mais connaissance avec les macro son nul

merci pour ton aide

 

[eriiic]

Désolé mais je n'aime pas trop ce style de fichier sensé trouver la martingale ultime.
Je préfère laisser ma place à ceux que ça intéresse ;-)
eric