Indiquer dans une textbox le numero de ligne de la macro
Fermé
emwaj
-
10 juil. 2015 à 16:07
ThauTheme Messages postés 1442 Date d'inscription mardi 21 octobre 2014 Statut Membre Dernière intervention 29 juillet 2022 - 12 juil. 2015 à 11:31
ThauTheme Messages postés 1442 Date d'inscription mardi 21 octobre 2014 Statut Membre Dernière intervention 29 juillet 2022 - 12 juil. 2015 à 11:31
A voir également:
- Indiquer dans une textbox le numero de ligne de la macro
- Numero prive - Guide
- Aller à la ligne dans une cellule excel - Guide
- Site de vente en ligne particulier - Guide
- Partage de photos en ligne - Guide
- Apparaitre hors ligne instagram - Guide
5 réponses
f894009
Messages postés
17181
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
21 mars 2024
1 701
10 juil. 2015 à 16:27
10 juil. 2015 à 16:27
Bonjour,
Qu'est ce que j'ai oublié?
si vous voulez copiez une cellule dont la ligne provient d'une TextBox, il faut tester que le contenu de la textbox soit un numerique et mettre le contenu de cette textbox en ligne de la cellule a copier. La ligne doit etre au minimum egale a 1 pas 0
'copy data from line x column A in worksheets(2) to cell B4 in worksheets(3)
If TextBox1.Value = " " Then Worksheets(3).Cells(4, 2).Value = Worksheets(2).Cells(0, 1).Value
Qu'est ce que j'ai oublié?
si vous voulez copiez une cellule dont la ligne provient d'une TextBox, il faut tester que le contenu de la textbox soit un numerique et mettre le contenu de cette textbox en ligne de la cellule a copier. La ligne doit etre au minimum egale a 1 pas 0
'copy data from line x column A in worksheets(2) to cell B4 in worksheets(3)
If TextBox1.Value = " " Then Worksheets(3).Cells(4, 2).Value = Worksheets(2).Cells(0, 1).Value
ThauTheme
Messages postés
1442
Date d'inscription
mardi 21 octobre 2014
Statut
Membre
Dernière intervention
29 juillet 2022
160
10 juil. 2015 à 16:37
10 juil. 2015 à 16:37
Bonjour Éric, bonjour le forum,
Cells(0,...) va automatiquement provoquer une erreur puisque la ligne 0 n'existe pas !...
Ensuite inutile de répéter la condition à chaque ligne tu peux faire :
Ton code actuellement récupère dans une cellule d'un onglet la valeur d'une cellule d'un autre onglet et cela sous la condition que la TexBox1 contienne un espace...?! À aucun moment tu n'indiques un numéro de ligne !...
Difficile de t'aider vu que le bout de code fourni ne correspond pas à la description du problème. Essai d'être plus clair dans tes explications
Cells(0,...) va automatiquement provoquer une erreur puisque la ligne 0 n'existe pas !...
Ensuite inutile de répéter la condition à chaque ligne tu peux faire :
IF TextBox1.Value = " " Then - action 1 - action 2 - action 3 - etc. End If
Ton code actuellement récupère dans une cellule d'un onglet la valeur d'une cellule d'un autre onglet et cela sous la condition que la TexBox1 contienne un espace...?! À aucun moment tu n'indiques un numéro de ligne !...
Difficile de t'aider vu que le bout de code fourni ne correspond pas à la description du problème. Essai d'être plus clair dans tes explications
merci pour les commentaires.
En fait ce que je veux c'est que la ligne x du code ci dessus soit mise à jour en fonction de la valeur qu'on onscrit dans la TextBox1.
exemple: si j'y écrit '7', alors à la place de x ce sera la ligne numéro 7 du tableau excel
le problème c'est que je ne sais pas comment faire cela...
Sub copy_lines()
'copy lines from mehushpazim to format tizkoret mehushpazim
If TextBox1 = "" Then
Worksheets(3).Cells(4, 2).Value = Worksheets(2).Cells(x, 1).Value
Worksheets(3).Cells(1, 7).Value = Worksheets(2).Cells(x, 10).Value
Worksheets(3).Cells(10, 3).Value = Worksheets(2).Cells(x, 6).Value
Worksheets(3).Cells(10, 5).Value = Worksheets(2).Cells(x, 3).Value
Worksheets(3).Cells(10, 7).Value = Worksheets(2).Cells(x, 4).Value
Worksheets(3).Cells(12, 3).Value = Worksheets(2).Cells(x, 6).Value
Worksheets(3).Cells(14, 4).Value = Worksheets(2).Cells(x, 8).Value
Worksheets(3).Cells(12, 7).Value = Worksheets(2).Cells(x, 9).Value
End If
End Sub
En fait ce que je veux c'est que la ligne x du code ci dessus soit mise à jour en fonction de la valeur qu'on onscrit dans la TextBox1.
exemple: si j'y écrit '7', alors à la place de x ce sera la ligne numéro 7 du tableau excel
le problème c'est que je ne sais pas comment faire cela...
Sub copy_lines()
'copy lines from mehushpazim to format tizkoret mehushpazim
If TextBox1 = "" Then
Worksheets(3).Cells(4, 2).Value = Worksheets(2).Cells(x, 1).Value
Worksheets(3).Cells(1, 7).Value = Worksheets(2).Cells(x, 10).Value
Worksheets(3).Cells(10, 3).Value = Worksheets(2).Cells(x, 6).Value
Worksheets(3).Cells(10, 5).Value = Worksheets(2).Cells(x, 3).Value
Worksheets(3).Cells(10, 7).Value = Worksheets(2).Cells(x, 4).Value
Worksheets(3).Cells(12, 3).Value = Worksheets(2).Cells(x, 6).Value
Worksheets(3).Cells(14, 4).Value = Worksheets(2).Cells(x, 8).Value
Worksheets(3).Cells(12, 7).Value = Worksheets(2).Cells(x, 9).Value
End If
End Sub
ThauTheme
Messages postés
1442
Date d'inscription
mardi 21 octobre 2014
Statut
Membre
Dernière intervention
29 juillet 2022
160
10 juil. 2015 à 17:44
10 juil. 2015 à 17:44
Re,
Dans ce cas je verrais les chose comme ça :
Dans ce cas je verrais les chose comme ça :
Sub copy_lines() Dim X As Integer X=Cint(TextBox1.Value) 'copy lines from mehushpazim to format tizkoret mehushpazim If TextBox1 <> "" Then Worksheets(3).Cells(4, 2).Value = Worksheets(2).Cells(X, 1).Value Worksheets(3).Cells(1, 7).Value = Worksheets(2).Cells(X, 10).Value Worksheets(3).Cells(10, 3).Value = Worksheets(2).Cells(X, 6).Value Worksheets(3).Cells(10, 5).Value = Worksheets(2).Cells(X, 3).Value Worksheets(3).Cells(10, 7).Value = Worksheets(2).Cells(X, 4).Value Worksheets(3).Cells(12, 3).Value = Worksheets(2).Cells(X, 6).Value Worksheets(3).Cells(14, 4).Value = Worksheets(2).Cells(X, 8).Value Worksheets(3).Cells(12, 7).Value = Worksheets(2).Cells(X, 9).Value End If End Sub
ThauTheme
Messages postés
1442
Date d'inscription
mardi 21 octobre 2014
Statut
Membre
Dernière intervention
29 juillet 2022
160
12 juil. 2015 à 09:25
12 juil. 2015 à 09:25
À quelle ligne ?! C'est pénible d'avoir à tirer les vers du nez des gens...
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
ThauTheme
Messages postés
1442
Date d'inscription
mardi 21 octobre 2014
Statut
Membre
Dernière intervention
29 juillet 2022
160
Modifié par ThauTheme le 12/07/2015 à 11:31
Modifié par ThauTheme le 12/07/2015 à 11:31
Re,
Que vaut las TextBox1 au moment de l'erreur ? Mets ton fichier sinon on va pas y arriver !...
À plus,
ThauTheme
Que vaut las TextBox1 au moment de l'erreur ? Mets ton fichier sinon on va pas y arriver !...
À plus,
ThauTheme