Discussion :

[benadry]

Bonjour,


J'ai un tableau Excel qui récupère des données d'une Base Agents en fonction du nom de l'agent (menu déroulant).

J'ai aussi des cellules dans lesquelles la valeur peut être calculée automatiquement ou non, en fonction des critères.

Le problème est que si l'utilisateur est amené à entrer manuellement une valeur, la formule contenue dans la cellule est écrasée.

J'ai déjà une macro qui efface le contenu de certaines cellules quand le nom de l'agent change.
Je cherche à compléter cette macro pour que, dans les cases où la saisie est manuelle ou automatique, la formule contenue dans la cellule soit recopiée à chaque fois que le nom de l'agent est modifié.

En résumé, ça donne ceci :
Si la valeur de B5 change, cela efface B11, B24, B28 ...

Parallèlement, je souhaiterais que la formule contenue en B28 (pour l'exemple, je l'ai simplifiée, mais en fait elle fait plus de 10 lignes) soit recopiée en B28. Je pense qu'il faut déjà inclure la formule dans la macro ; car, comme je l'ai dit, si l'utilisateur tape une valeur lui-même en B28 et que la macro recopie B28, cela ne sert à rien.

J'ai essayé plusieurs codes, repris dans le fichier VB, mais cela ne fonctionne pas.
Si quelqu'un pouvait donc m'aider.

Merci d'avance.

Cordialement.

[nibledispo]

Bonjour,

Pourquoi dans l'exemple effacer B28 pour la recopier ensuite ?

De plus, ne serait-il pas plus simple d'interdire la saisie manuelle en protégeant la cellule contenant la formule.

Sinon si tu tiens vraiment à recopier alors utilise formula = " =(formule)
Pour mémoire, tu peux utiliser l'enregistreur de macro qui te fabriquera la formule.
pour cela, tu te positionnes sur la cellule qui doit recevoir la formule et tu frappe toutes les éléments entrant dans cette dernière.

Cordialement.

[benadry]

Bonjour le forum,

Merci à Nibledispo pour ta réponse.

Le problème est que je ne peux pas interdire la saisie manuelle puisqu'elle est justement possible alternativement avec l'utilisation de la formule.

Pour l'enregistrement de la macro, j'ai bien essayé, mais ça ne fonctionne pas !

Si quelqu'un a une autre idée ...


Merci d'avance.

Cordialement.

[nibledispo]

Bonjour,

Quelle est la formule d'une dizaine de lignes car dans la case B28 il n'y présentement que AA.

De plus? tu évoque un fichier VB et tu joins Test1. n'as tu pas oublié de joindre quelque chose ?

En effet, je ne vois dans test1 aucun endroit contenant les retenues habituelles sur un salaire (retraite, maladie, .......).

Cordialement,

[benadry]

Rebonjour,

Le fichier que j'ai envoyé est un fichier de test. Il ne reprend donc pas la plupart des formules que j'ai écrites, ni les retenues sur salaire.

En revanche, dans mon vrai fichier, tout est bien présent. Mais, celui-ci est trop lourd et prendrait beaucoup trop de temps à anonymiser, d'où le fichier test, certes réduit, mais qui reprend l'essentiel.

Je ne peux pas joindre le fichier contenant la macro, puisqu'apparemment le forum n'accepte pas les fichiers .xlsm.

Le voici cependant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
Private Sub Worksheet_Change(ByVal Target As Range)
  Dim I As Integer
 
 
    If Target.Count > 1 Then Exit Sub
    If Not Intersect(Range("b5"), Target) Is Nothing Then
      Application.EnableEvents = False
 
        Range("b11").ClearContents
        Range("b24").ClearContents
        Range("b28").ClearContents
        Range("b29").ClearContents
        Range("c29").ClearContents
        Range("b30").ClearContents
        Range("c30").ClearContents
        ' [...]
      Application.EnableEvents = True
    End If
 
If Target.Address = "$B$28" Then
Copy.Range("$B$28").FormulaLocal = "XXXXXX" 'Ici on recopie la formule
 
End If
 
End Sub

Or, si les cellules s'effacent bien quand la valeur entrée en B5 varie, la valeur de la cellule B28 ne se recopie pas !

Merci d'avance.

Cordialement.

[jordane45]

Bonsoir,

Surement comme ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
 
    If Target.Count > 1 Then Exit Sub
    If Not Intersect(Range("b5"), Target) Is Nothing Then
    '-------------------------------------
    'Au passage j'aurai utilisé :
    'if target.Address = "$B$5" then
    ' Ce qui revient au même...
    '----------------------------------------
      Application.EnableEvents = False
        Range("b11").ClearContents
        Range("b24").ClearContents
        Range("b28").ClearContents
        Range("b29").ClearContents
        Range("c29").ClearContents
        Range("b30").ClearContents
        Range("c30").ClearContents
        ' [...]
 
        'Recopie de la formule dans B28
        Range("B28").Formula = "=IF(""A1""<>2,""ok"",""ko"")"
      Application.EnableEvents = True
    End If

Quoi qu'il en soit, votre ligne :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
Copy.Range("$B$28").FormulaLocal = "XXXXXX" 'Ici on recopie la formule

Doit vous faire une erreur...

Copy.range ? ça n'existe pas il me semble...
A la rigueur :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Range("$B$28").FormulaLocal = "XXXXXX" 'Ici on recopie la formule

Pensez également à placer vos Application.EnableEvents = False dès le début du code et le Application.EnableEvents = True juste avant le End Sub..
Sinon, votre programme va boucler sans fin, vu qu'il se déclenche à la modification de la feuille..et que vous modifiez la feuille justement;.

[benadry]

Eureka !

En cherchant sur d'autres posts, j'ai trouvé ceci :

En remplaçant

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Sheets("Autres données").Select
    Range("A33").Select

Par

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
    Sheets("Autres données").Select
    Sheets("Autres données").Range("A33").Select

ça fonctionne parfaitement !

Il suffit de le savoir.

Merci encore pour votre aide.

Cordialement.