Donnés circulaire helpe
Geduly
-
meuhlol Messages postés 1896 Date d'inscription Statut Membre Dernière intervention -
meuhlol Messages postés 1896 Date d'inscription Statut Membre Dernière intervention -
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
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
- Tradition circulaire - Guide
- Excel référence circulaire introuvable ✓ - Forum Excel
- Transferer donnes ps4 sur ps5 ✓ - Forum PS4
- Donnes gps - Guide
- Réference circulaire ✓ - Forum Excel
2 réponses
Yop !
Fais clique-droit sur "Feuil1", puis "Visualiser le code", et colle ceci dedans :
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.
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.
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 ?
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 SubCa marche pour A1+B1 / A2+B2 / A3+B3 et ainsi de suite jusqu'au 30 lignes
code trouvé ici