Donnés circulaire helpe
Geduly
-
meuhlol Messages postés 1782 Date d'inscription Statut Membre Dernière intervention -
meuhlol Messages postés 1782 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
2 réponses
-
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.
-
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 ?- 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
-
-
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é
