Vba-excel : créer un offset sur formule vba

Fermé

mod77 Messages postés 1273 Date d'inscription vendredi 10 juillet 2009 Statut Membre Dernière intervention 14 janvier 2024 - 14 janv. 2024 à 10:45
yg_be Messages postés 23493 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 24 mars 2025 - 14 janv. 2024 à 12:37

Bonjour et bonne année,

Je galère depuis hier matin donc, j'appelle au secours car je ne m'en sort pas.

Travail: Je fais des copies de feuil_n en feuil_n+1 avec toutes les formules se trouvant dans la feuille et notamment de la formule en "C135" qui est du type :"=feuil_x!E2". Lorsque j'arrive en feuil_n+1 certaines formules de destination doivent être augmentées de 40 lignes pour donner: "=feuil_x!E42" et ainsi de suite au fur et à mesure des copies.

pb: je n'y arrive pas :-(

ma formule était:

formule = ActiveWorkbook.Sheets(feuil_n+1).Range("C135").FormulaLocal     'récupe "=feuil_x!E2" en C135 feuil_n
formule = (Left(formule, 13)) & (Split(formule, "E")(1) + 40)

mais cela ne fonctionne plus car la formule copiée n'est plus celle en C135.
Je pense que c'est parce qu'on est passé en numéro de ligne à 3 digits (centaine), je ne sais pas???

comme je ne comprends pas pourquoi, dans l'instruction "split(formule, "E") (1)" le (1) est à l'extérieur ? j'avais récupéré ça sur le net.

s'il y a une bonne âme pour m'éclairer svp...

A voir également:

Vba offset
Excel compter cellule couleur sans vba - Guide
Vba attendre 1 seconde ✓ - Forum VB / VBA
Mkdir vba ✓ - Forum VB / VBA
Cannot access offset of type string on string - Forum PHP
L'indice n'appartient pas à la sélection vba ✓ - Forum Programmation

2 réponses

Réponse 1 / 2

yg_be Messages postés 23493 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 24 mars 2025 Ambassadeur 1 570
14 janv. 2024 à 12:25

bonjour,

split retourne un tableau, et (1) va chercher le second élément du tableau.

Dim f, s
f = "ABCE123"
s = Split(f, "E")
Debug.Print s(0), s(1)

Réponse 2 / 2

yg_be Messages postés 23493 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 24 mars 2025 Ambassadeur 1 570
14 janv. 2024 à 12:37

D'où vient le 13?

Peut-être:

s=Split(formule, "E")
formule = s(0) & "E" & (s(1) + 40)

Discussions similaires

"L'indice n'appartient à la sélection" + VBA

Bonjour,
Nous avons un problème dans la programmation de notre VBA. Voici notre programme:

Sub Bloucle1Bull()
Dim a, k As Integer

k = 2
Do While Worksheets("formulaire").Cells(2, 2) Worksheets("formulaire").Cells(k, 4)
k = k + 1
Loop

a = 2
Do While Worksheets("formulaire").Cells(k + 1, 4) Worksheets("BDD Call").Cells(a, 1) Or (Worksheets("BDD Call").Cells(a, 4) = (Worksheets("Bullspread").Cells(2, 3) + 100)) Or Worksheets("BDD Call").Cells(a, 7) Worksheets("bullspread").Cells(2, 7)
a = a + 1
Loop

''''''''''''on recopie la ligne du premier call trouvé pour le jour 2 ...

Erreur d'exécution 13 Incompatibilité de type

Bonjour,

Je ne comprend pas pourquoi j'ai une erreur d'execution 13 : incompatibilité de type car mon code marchait très bien avant...Je met en gras la ligne où il y a l'erreur

'affichage des feuilles concernées et vérification des champs Sheets("Recap").Visible = True If Cathégories = "" Then MsgBox "Sélectionnez une catégorie de défauts dans la liste déroulante" ElseIf défauts = "" Then MsgBox "Sélectionnez un défauts qualité dans la liste déroulante" Exit Sub End If Dim i As Integer Dim n As Integer n = 3 i = 2 MsgBox "Veuillez patienter pendant le traitement..." Application.Cursor = xlWait 'affiche le sablier 'Suppression des don...

Traduction menu Illustrator...

Bonjour,

je m'arrache les cheveux pour trouver la traduction (l'equivalent) en Anglais de "Objet > Tracé > décalage" ...qqun pourrait m'aider siouplé ?

Merci !
--
[Monkey Monk]
That's all folks !

ouverture d'un fichier excel à partir d'un code VBA

Bonjour,

je souhaite ouvrir un fichier excel à partir du code suivant:

Sub Ouvrir()
Workbooks.Open Filename:="C:\Documents and Settings\Administrateur\Bureau\TRADING\Action.xlsx"
End Sub

sauf que lors de l'exécution j'ai cette erreur
==> Instruction incorrecte à l'extérieur d'une procédure et il met en bleu cette partie :
C:\Documents and Settings\Administrateur\Bureau\TRADING\Action.xlsx

merci

Méthode find dans VBA - Recherche de données sous Excel

Document initial créé par Pijaku

Cette fiche pratique est essentiellement tirée de l'aide Excel. L'exemple d'utilisation est un conseil basé sur ma propre petite expérience.

Introduction Méthode via Excel Code VBA correspondant Syntaxe Valeur renvoyée A savoir Exemple d'utilisation Recherche multiple FindNext - FindPrevious Une variante : Find_Next FindAll

Introduction La méthode find permet de trouver la première occurrence d'une information spécifique, dans un range. En clair, cette méthode permet d'aller chercher dans une feuille ou une partie d'une feuille Excel, une information, une donnée ou une partie de cette donnée. ...