Calcul complexe

Bonsoir

pourriez vous m'aider a concevoir ce genre de calcul ?

les donner 7-20-13 ceci et un exemple d'autre chiffre se rajoute après

le 1er chiffre le 7 le 7 = 29 ou 28

ensuite nous avons le chiffre 20 le 20 = 1 ou 14

et nous avons le 13 le 13 et 31 et 27 ou 36

il devra en déduire la chose suivante

7 =29

et 13 = 31

On a 29 et 31 manque le 30 et le 30 c’est le 8

es-que c'est possible de m'aider

je donnerais d'autre exemple si vous en avez besoin

un autre exemple

Le 7 =29

Le 8 = 30

Il manque soit le 28 ou 31

es-que vous pouvez m'aider je mettrez tout ça sous excel

un autre exemple

Le 7 = 29

Le 28 reste le 28

On a 28 et 29

Il manque 27 ou 30

dernière exemple

Le 25 reste 25

Le 8 = 30 ou 23

On a 23 et 25

Manque le 24

bonsoir

tu te fais un tabeau de conversion et; tu utilise s RECHERCHEV

bonsoir

ouahhhh c'est quoi un tableaux de conversions ?

re

eh bien dans une colonne tu mets 7 et a coté 29 comme ça a chaque fois que tu as 7 la fonction cherhe ce qui correspond au 7 dans la colonne d'a coté facile non?

merci mai je pense que l'on va faire par étape

je vais mettre un fichier excel

Quand je clique sur un chiffre de B2 a AL 2

il mettra ce chiffre en A6 a A90

Exemple si je clique sur C1 il mettra ce chiffre en A6

si je clique sur K2 il metra ce chiffre en A7 etc,,,

Salut le forum

Code à copier dans le module de la Feuil1

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 If Not Application.Intersect(Target, Range("B2:AL2")) Is Nothing Then
  If Cells(Rows.Count, "A").End(xlUp).Row + 1 > 90 Then Exit Sub
    Cells(Cells(Rows.Count, "A").End(xlUp).Row + 1, "A") = Target.Value
 End If
End Sub

Mytå

merci mai comment je fait pour aller dans le module de la feuil1

Re le forum

Alt + F11 (Ctrl + R si tu ne vois pas la Feuil1 à gauche) tu doubles clique sur la Feuil 1

et tu colles ensuite le code dans la fenêtre de droite

Un peu de lecture : Cours VBA

Mytå

merci

mai le bouton reset ne fonctionne pas ci joint le fichier

encore merci

Re le forum

Le code modifié pour la cellule "Reset"

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 If Not Application.Intersect(Target, Range("A1,B2:AL2")) Is Nothing Then
  If Target.Address = "$A$1" Then
   Range("A6:A90").ClearContents
   Exit Sub
  End If
  If Cells(Rows.Count, "A").End(xlUp).Row + 1 > 90 Then Exit Sub
    Cells(Cells(Rows.Count, "A").End(xlUp).Row + 1, "A") = Target.Value
 End If
End Sub

Mytå

merci mai ce code je le met ou ?

Re le forum

Tu lis pas les réponses : Page précédente

Mytå

je le colle dans la feuil1?

cool ça marche merci milles merci

je clique sur B2 alors en A6 il met 0

si je clique sur B1 alors le chiffre restera 0

Mais si je ne clique pas sur B1 alors il mettra en B6 26 et en C6 32

Idem pour tout les chiffres de droite en ROUGE

Bonjour

si vous avez besoin de plus de renseignements demandez moi merci.

voila un complément d'information

Bonjour je suis perdu une personne pourrais venir m'aider merci d'avance

plus simple je pense

exemple je clique sur C2 il mettra le chiffre 1

en A6

et si on regarde les chiffres en rouges le 1 = 33 et 20

qu'il metra en D6 et E6

Si je clique sur N2 alors il mettra le chiffre 12 en A7

et si on regarde les chiffres rouges le 12 = 28 et 35

et il mettra 28 et 35 en G6 ET H6

le 0 = 26 et 32

le 17 = 25 et 34

peut importe les chiffres qu'il y aura en A6 a A9 il cherchera sa combinaison dans les chiffres rouge

et le bouton Reset pour effacer 6D a 6N

Salut le forum

Ton fichier

Mytå