formule ou vba

[Guismo33]

bonjour a tous,

sur une feuille "arrivée" j'ai 5 information a enregistrer sur d'autre feuilles a différent endroit
je recherche une formule en vba ou formule simple pour pouvoir y parvenir.
je vous joins un fichier pour exemple.

merci à vous tous

 

[vgendron]

Hello

Avec ce bout de code à affecter à ton bouton Points

Sub classer()
nomfeuill = [B2]
For i = 1 To 5
    Poids = Cells(3, i + 2)
    Corde = Cells(4, i + 2) 
    With Sheets("" & nomfeuill & "")
        Set PosX = .Rows("1:1").Find(Poids, lookat:=xlWhole)
        Set PosY = .Range("A:A").Find(Corde, lookat:=xlWhole)       
        .Cells(PosY.Row, PosX.Column + i - 1) = 1
    End With
Next i
End Sub

 

[Guismo33]

Hello

Avec ce bout de code à affecter à ton bouton Points

Sub classer()
nomfeuill = [B2]
For i = 1 To 5
    Poids = Cells(3, i + 2)
    Corde = Cells(4, i + 2)
    With Sheets("" & nomfeuill & "")
        Set PosX = .Rows("1:1").Find(Poids, lookat:=xlWhole)
        Set PosY = .Range("A:A").Find(Corde, lookat:=xlWhole)      
        .Cells(PosY.Row, PosX.Column + i - 1) = 1
    End With
Next i
End Sub

Bonjour,
il y a un soucis sur cette ligne :
With Sheets("" & nomfeuill & "")
boite de dialogue : erreur d'exécution '9'
merci pour ce travail.

bien à vous

 

[Guismo33]

Bonjour,
j'ai modifier " nomfeuill= [B2] PAR Range("b2") et cela fonctionne, mais il faut qu'il puisse additionner les résultats
pour le prochains résultat.

merci


Bien à vous

 

[Guismo33]

Bonjour,
il y a un soucis sur cette ligne :
With Sheets("" & nomfeuill & "")
boite de dialogue : erreur d'exécution '9'
merci pour ce travail.
j'ai modifier " nomfeuill= [B2] PAR Range("b2") et cela fonctionne, mais il faut qu'il puisse additionner les résultats
pour le prochains résultat.

merci


Bien à vous

 

[vgendron]

Hello

j'ai modifier " nomfeuill= [B2] PAR Range("b2") et cela fonctionne,

bizarre. parce que c'est censé être strictement la même chose...

additionner les résultats..???
comme ceci?

Sub classer()

nomfeuill = [B2]

For i = 1 To 5
    Poids = Cells(3, i + 2)
    Corde = Cells(4, i + 2)
   
    With Sheets("" & nomfeuill & "")
        Set PosX = .Rows("1:1").Find(Poids, lookat:=xlWhole)
        Set PosY = .Range("A:A").Find(Corde, lookat:=xlWhole)
       
        .Cells(PosY.Row, PosX.Column + i - 1) = .Cells(PosY.Row, PosX.Column + i - 1) + 1
    End With
Next i

End Sub

 

[Guismo33]

Hello


bizarre. parce que c'est censé être strictement la même chose...

additionner les résultats..???
comme ceci?

Sub classer()

nomfeuill = [B2]

For i = 1 To 5
    Poids = Cells(3, i + 2)
    Corde = Cells(4, i + 2)
 
    With Sheets("" & nomfeuill & "")
        Set PosX = .Rows("1:1").Find(Poids, lookat:=xlWhole)
        Set PosY = .Range("A:A").Find(Corde, lookat:=xlWhole)
     
        .Cells(PosY.Row, PosX.Column + i - 1) = .Cells(PosY.Row, PosX.Column + i - 1) + 1
    End With
Next i

End Sub

Bonjour,
merci pour ta réponse, j'ai fait une bêtise, j'ai préférais avoir "poids" et "corde" en vertical pour le même résultat.
je vous envois un fichier, merci à vous.

Bien à vous

 

[vgendron]

Bonjour !!
de retour de vacances, suis en forme pour reprendre.. ou pas..

j'ai préférais avoir "poids" et "corde" en vertical pour le même résultat.

?????

dans ton dernier fichier, la macro fait intervenir
Range("Arrivee").ClearContents

sauf que dans le fichier. la range "Arrivée" n'est pas définie..
de plus dans l'onglet Arrivée, les valeurs de poids (colonne H) ne sont définies comme des nombres.. mais du format texte (un message commentaire te l'indique sur les cellules..--> il faut donc "convertir les nombres stockés sous format texte en nombre)

 

[paco paco]

Bonjour,

Je souhaite créer comme une petite application de calcul sous excel comme ceci :

quand on ouvre le fichier excel, l'utilisateur n'a juste qu'à rentrer quelques données dans certaines cellules, sans pouvoir cliquer sur les autres cellules ou même les modifier.
Je souhaiterai un fichier avec simple, avec au milieu de la feuille de calcul mon tableau avec seulement 2 ou 3 cellules à enrichir en fonction du calcul voulu, et rien d'autre autour (pas même la visualisation des cellules autour de mon tableau de calcul).

Je souhaite vraiment un fichier non modifiable hormis les 2 ou 3 cellules pour les calculs.

Merci pour votre aide, pour me dire ou je dois me renseigner.
Je ne sais pas si c'est avec les cours VBA ou pas.

Merci