Recherche:

Autre solution, en annexe :

626478

qu'est-ce qui vous bloque ?
Réponse : Oui

Et sur chaque choix, est-il possible d'ajouter des quantités ? Réponse : Oui
Vous pouvez préciser/illustrer vos questions en mettant des captures...

Voici un exemple pour la 1ère opération, que vous pouvez reproduire pour les autres actions :


Sub copierDonneesWeb()

Dim k As Long
Dim myRng As String
myRng = "B2:F2"
...

Il y a 2 points à traiter :

Citation "Je ne comprends pas :"

If Left(zone, 2) = ", " Then zone = Mid(zone, 3)
Etant donné que la chaîne de caractères ", A10, B10, ..., etc" commence par une...

Je vais voir tout cela dès que possible

Voici un exemple PowerQuery tout simple basé sur vos données.

Si vous mettez
oMail.Display au iieu de
oMail.Send est-ce que le message s'affiche ? Si oui, pouvez-vous l'envoyer manuellement ?

Si vous avez PowerQuery, je conseille vivement de l'exploiter dans ce cas-ci, ça supprimera tous vos problèmes. L'essayer, c'est l'adopter. Le reste, c'est du bricolage avec les formules classiques.

Il y a plusieurs solutions dans cette situation (formules, powerQuery par exemple), mais puisque vous êtes contraint d'utiliser VBA, voici un exemple:


Sub CopieEntreClasseurs()
'On suppose...

D'après les données dans votre question, pushright et pushleft sont des intitulés de pages; ou alors je n'ai pas bien saisi le problème !

Oui; voir sur ce site-ci la doc sur "web scrapping"

Le changement se fait automatiquement, si la bonne instruction (voir ci-dessus) est placée dans le code

En effet, Philippe a raison; voir son exemple !

Selon le cas, vous changez l'intitulé dès que vous changez de page :

Me.MultiPage1.Pages(i).Caption = "PushLeft"
Me.MultiPage1.Pages(i).Caption = "PushRight"

Sub ExtractComments() 'un exemple trouvé sur le net
Dim ExComment As Comment
Dim i As Integer
Dim ws As Worksheet
Dim CS As Worksheet
Set CS = ActiveSheet
If ActiveSheet.Comments.Count = 0...

Vous pouvez modifier le descriptif de l'onglet à chaque mouvement :

Me.MultiPage1.Pages(i).Caption = "xyz"

Essayez ceci :

If Me.TabStrip.Pages(i).Caption = "'" & nom_onglet & "'" Then 'apostrophe entre guillemets

'Au lieu du checkBox, on peut essayer ceci :

Sub graph01()
'Identifier les colonnes en encodant 0 ou 1 (1=colonne choisie; 0 = colonne ignorée) sur 1 ligne de votre choix

Dim zone...

Formule générale (exemple):

Me.TextBox1 = ThisWorkBook.Sheets("Feuil1").ActiveCell.Value
Mais il faut tenir compte de la structure de votre fichier, et comment le tout s'articule, car TextBox1...

Voici une procédure similaire, et qui fonctionne (sur office365:

Private Sub UserForm_Click()
Dim nom_onglet As String
Dim i As Long

nom_onglet = "Mur"

For i =...

Via l'explorateur de fichiers (file explorer)

Ceci pourrait aider https://www.thespreadsheetguru.com/blog/change-mouse-cursor-icon-in-vba-userform

Une piste : soit "Stat_Car" n'est pas déclarée comme array ou qu'elle n'est pas initialisée, soit vous y mettez plus d'éléments que sa dimension permet (comme essayer de mettre 2 litres dans une...

Essayez d'accéder à votre fichier via l'explorateur de fichiers, en suivant le chemin "Serveur\Projet\KO'KHOUA\"
Il se peut que le service informatique ait remanié la structure des fichiers sans...

Ceci m'a échappé; j'aurais dû le voir dès le début !
La syntaxe exacte est :


CurrentDb.Execute "UPDATE EnAttPlanification SET PrixAlu = " & CDbl(PrixAlum) & ";"