Bouton VBA

Bonjour encore besoin de vos lumières

j'ai mis dans l'onglet Cote

des infos d'internet j'ai fais un copier collé

de ces infos jen et besoin que 2

la première dont j'ai besoin et en H2/H18

et la seconde et en I2/I18

sauf que pour cette infos j'ai juste besoin des chiffres que j'ai mis en rouge

4.3

6.4

5.1

etc..... tous ceux en rouge

aujourd hui

et ma question et t'il possible avec un bouton qu'il me les mettes dans l'onglet Calcul

pour H2/H18 il fraudais qu'il les mettes en B2/B19

et pour les chiffres en rouges en C2/C19

merci d'avance pour votre aide

Bonjour

Un essai à tester. Te convient-il ?

Bye !

bonjour

tout dabord merci pour ton aide mais j'ai besoin des 2 cotes

quans je clique sur le bouton report effectivement il me met une cote mais il devrais etre en C2/C19

et il devrait aussi me mettre les cotes de l'onglet cote de H2/H18 dans l'onglet calcul en B2/B19

merci

Nouvelle version.

Bye !

oui presque sauf que de B2/B19 il devrait y avoir les cotes en jaunes

aujourd hui

13.1

24.4

8.8

etc....

merci pour ton aide

Nouvelle version

Bye !

mais tu ma remis les même cotes ?

pour les cotes en B2/B19 je tes remis les bonnes cotes qu'il devrait y avoir

et ces cotes sont dans l'onglet (cote en H2/H18)

merci

tu peut m'aider stp

Oups !

Nouvelle version.

Bye !

merci mai cette fois ci la formule en D2/D19

ne fonctionne plus ?

Bonjour à tous,

Si je peux me permettre ...

Sub Report()

    Set f = Sheets("COTE")
    tablo = f.Range("H2:I" & f.Range("H" & Rows.Count).End(xlUp).Row)
    ReDim tabloR(1 To UBound(tablo, 1), 1 To UBound(tablo, 2))

    Range("B2").Resize(UBound(tablo, 1), UBound(tablo, 2)).ClearContents
    Range("B2").Resize(UBound(tablo, 1), UBound(tablo, 2)).Interior.Color = xlNone
    For i = 1 To UBound(tablo, 1)
            tabloR(i, 1) = Replace(tablo(i, 1), ".", ",") * 1 ' << changements
            tabloR(i, 2) = Split(tablo(i, 2), "-")(1)
    Next i

    Range("B2").Resize(UBound(tablo, 1), UBound(tablo, 2)) = tabloR
    Range("B2").Resize(UBound(tablo, 1), 1).Interior.Color = RGB(255, 255, 0)
End Sub

ric

Bonjour

Nouvelle version.

Bye !

merci pour votre aide

une question comment je fait pour effacer l'ancienne course dans l'onglet (COTE)

pour que je puisse en mettre une nouvelle

car quand j'essaye de la supprimer

j'ai l'option décaler les cellules vers la gauche

décaler les cellules vers le haut

ligne entière

colonne enterre

aujourd hui

merci pour votre aide

Bonjour à tous,

Une fois les cellules sélectionnées, utilise la touche supprime ... tout simplement.

ric

merci mais quand je sélectionne la couse a supprimer il me met le petit tableaux

comme l'image jointe en dessous du coup je sélectionne quoi pour effacer

aujourd hui

du coup j'ai décaler l'ancienne course et coller la nouvelle dans l'onglet (COTE) et il me met ce message d'erreur

quand je clique sur le bouton report

aujourd hui

Bonjour à tous

Le "petit tableau" comme tu l'appelles, indique que tu as demandé de supprimer la sélection

Ce qu'il te faut faire, c'est l'effacer.

Pour cela, après avoir sélectionné la plage à effacer, tu peux

* soit taper sur la touche "Suppr" de ton clavier

* ou encore taper simultanément sur les touches Alt et E , puis F et enfin T

OK ? Bye !

je viens de le faire et pourtant quand je clique sur report j'ai toujours la même erreur

ci joint capture

aujourd hui

Nouvelle version.

Bye !

merci mais comment je supprime ces courses dans l'onglet (Cote) ces une vrai galère

y a t'il la possibilité de mettre un bouton supprimer dans l'onglet (Cote)

car a chaque fois que je veut en rajouter une nouvelle il beug

ces courses

aujourd hui

merci pour ton aide

Rechercher des sujets similaires à "bouton vba"