Donnés circulaire helpe

Fermé

Geduly - 7 août 2018 à 07:36
meuhlol Messages postés 1896 Date d'inscription mardi 24 juillet 2007 Statut Membre Dernière intervention 30 novembre 2021 - 7 août 2018 à 17:16

Bonjour,

je dois faire un petit tableau correspondant a des heures de vol d'un avion,

Cellule A heure de vol total
Cellule B heure de vol effectué du jour

je voudrais qu'a chaque fois je change les donnés de la cellule B qu'elle s'ajoute automatiquement a la Cellule A heure total

hors si je fais A = B+A erreur de donnés circulaire

Merci de votre aide

A voir également:

Donnés circulaire helpe
Construire une phrase avec des mots donnés - Forum C
Permutation circulaire python ✓ - Forum Python
Excel référence circulaire introuvable - Forum Excel
Référence circulaire introuvable ✓ - Forum Excel
Référence ciculer - Forum Excel

2 réponses

Réponse 1 / 2

meuhlol Messages postés 1896 Date d'inscription mardi 24 juillet 2007 Statut Membre Dernière intervention 30 novembre 2021 672
7 août 2018 à 08:27

Yop !

Fais clique-droit sur "Feuil1", puis "Visualiser le code", et colle ceci dedans :

Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("B1")) Is Nothing Then
    Range("A1").Value = [A1] + [B1]
    End If
End Sub

Ca va afficher en A1 l'addition de A1 et B1 lorsque tu vais saisir l'heure en B1.

Mets le format de ces cellules en heure.

Geduly
7 août 2018 à 08:59

Super cela fonction, pour la premier ligne mais
cependant j'ai plusieurs avion donc plusieurs lignes (copier /coller de la formule) j'ai changer juste le A1 en A2 ect.... mais erreur nom ambigu détecté dois je changé quelque chose ?

meuhlol Messages postés 1896 Date d'inscription mardi 24 juillet 2007 Statut Membre Dernière intervention 30 novembre 2021 672 > Geduly
Modifié le 7 août 2018 à 09:22

Tente ce code là :

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target.Cells(1), [B1:B30]) Is Nothing Then
       Target.Cells(1).Offset(0, -1) = _
            Target.Cells(1).Offset(0, -1) + _
                Target.Cells(1)
    End If
End Sub

Ca marche pour A1+B1 / A2+B2 / A3+B3 et ainsi de suite jusqu'au 30 lignes

code trouvé ici

Réponse 2 / 2

Geduly
7 août 2018 à 15:50

Bonjour on y presque les 2 premières ligne ok B1 et B2 mais a B3

Erreur et il me met en jaune

Target.Cells(1).Offset(0, -1) = _
Target.Cells(1).Offset(0, -1) + _
Target.Cells(1)

Désolé

meuhlol Messages postés 1896 Date d'inscription mardi 24 juillet 2007 Statut Membre Dernière intervention 30 novembre 2021 672
Modifié le 7 août 2018 à 17:18

Chez moi ça marche pourtant :
https://www.cjoint.com/c/HHhpppQjjec

Discussions similaires

faire une phrase avec différents mots

Comment découper l'image en forme de rond ?

Excel erreur références circulaires

Construire une phrases à partir de mots...

Excel référence circulaire