XL 2016 Rendre cellule dynamique statique

M12

XLDnaute Accro

• 1 Août 2021

• #2

Bonjour
Un test avec une petite macro

 

Pièces jointes

• Robertduval.xlsm

  14.5 KB · Affichages: 10

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 1 Août 2021

• #3

Bonjour robertduval, M12,

On peut éviter le VBA en activant le calcul itératif.

Voyez le fichier joint et cette formule en H1 :

Code:

=SI(CELLULE("address")=CELLULE("address";H1);SOMME(B1;D1);SI(CELLULE("address")=CELLULE("address";D1);H1+(N(D1)>0);H1))

A+

 

Pièces jointes

• Calcul itératif(1).xlsx

  10.4 KB · Affichages: 6

Vote positif 0 Vote négatif

R

robertduval

XLDnaute Junior

• 1 Août 2021

• #4

Merci à vous 2 ça fonctionne 😉

 

Vote positif 0 Vote négatif

R

robertduval

XLDnaute Junior

• 2 Août 2021

• #5

Bonjour tout fonctionne dans le fichier du post 1, j'ai essayé de le transférer sur le mien erreur il doit y avoir un conflit, je vous donne le fichier presque réel avec la macro qu'il y a déjà et les formules, si vous pouviez regarder Merci 😉

 

Pièces jointes

• test.xlsm

  19.1 KB · Affichages: 7

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 2 Août 2021

• #6

Bonjour robertduval, le forum,

Ce qui ne va pas : les données en colonne I sont le résultat de formules.

Pour que l'évènement Change soit créé il faut qu'elles soient entrées manuellement.

A+

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 2 Août 2021

• #7

En fait la colonne I ne sert à rien, il suffit de faire les calculs en testant les cellules de la colonne D.

Avec le calcul itératif voyez ce fichier (2) et la formule en C2 :

Code:

=SI(CELLULE("address")=CELLULE("address";C2);Feuil2!A1;SI(CELLULE("address")=CELLULE("address";D2);C2+(D2<>"");C2))

 

Pièces jointes

• Calcul itératif(2).xlsx

  12.1 KB · Affichages: 13

Vote positif 0 Vote négatif

R

robertduval

XLDnaute Junior

• 2 Août 2021

• #8

Merci job75, j'ai testé ton fichier, j'ai modifié la colonne D et ça me met ça (photo en pj) je comprends pas 🤔ça fonctionnais à toi...Merci encore de ton aide.

 

Pièces jointes

• photo.JPG

  130.2 KB · Affichages: 15

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 2 Août 2021

• #9

Revalidez les cellules de la colonne C pour les réinitialiser.

 

Vote positif 0 Vote négatif

R

robertduval

XLDnaute Junior

• 3 Août 2021

• #10

Salut

J'ai effacé la colonne C réécrit, je l'ai même copié ailleurs puis recoller, non ça fonctionne pas, j'ai toujours les N/A

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 3 Août 2021

• #11

Bon quand on télécharge le fichier du post #7 et qu'on l'ouvre les #N/A se forment en colonne C.

Il suffit de fermer et rouvrir le fichier pour qu'ils disparaissent.

 

Vote positif 0 Vote négatif

R

robertduval

XLDnaute Junior

• 3 Août 2021

• #12

Salut

J'ai fais ce que vous avez dit ça a fonctionné mais chaque fois que j'enregistre il m'incrémente la cellule active 😭 sinon y a t'il une autre façon de le faire Merci 🙏

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 3 Août 2021

• #13

Oui, en VBA c'est sans doute mieux, voyer le fichier joint et cette macro dans Feuil1 :

VB:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim F As Worksheet, r As Range
Set F = Feuil2 'CodeName, à adapter
Application.ScreenUpdating = False
Application.EnableEvents = False 'désactive les évènements
'---colonne C---
Set r = Intersect(Target, Range("C2:C" & Rows.Count), UsedRange)
If Not r Is Nothing Then
    For Each r In r 'si entrées/effacements multiples
        r = CStr(F.Range("A" & r.Row - 1))
    Next
End If
'---colonne D---
Set r = Intersect(Target, Range("D2:D" & Rows.Count), UsedRange)
If Not r Is Nothing Then
    For Each r In r 'si entrées/effacements multiples
        If CStr(r) <> "" And IsNumeric(CStr(r(1, 0))) Then r(1, 0) = r(1, 0) + 1
    Next
End If
Application.EnableEvents = True 'réactive les évènements
End Sub

 

Pièces jointes

• Incrémentation(1).xlsm

  19.7 KB · Affichages: 6

Vote positif 0 Vote négatif

Solution

R

robertduval

XLDnaute Junior

• 3 Août 2021

• #14

Merci beaucoup de votre aide 👍 🙏 , je viens de tester votre fichier ça fonctionne, je vais l'adapter au mien et je revient vers vous 😉

 

Vote positif 0 Vote négatif

R

robertduval

XLDnaute Junior

• 4 Août 2021

• #15

Merci job75 tout fonctionne sur le mien t'es un as 👍, merci aussi de ta patience, dis moi si je veus me former comme vous, genre le vba que tu m'as écrit par quoi dois je commencer ? Merci encore 😉

 

Vote positif 0 Vote négatif