Discussion :

[Vatreni]

Bonjour à tous,

Tout d'abord, je vous remercie de faire vivre ce forum qui une vraie aide pour tous étudiant.
J'ai donc deux soucis avec un classeur que je réalise dans le cadre de mon stage dans une entreprise.

Le premier problème :
Je n'arrive à insérer une ligne dans dans une feuille avec l’écriture suivante

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Range("A11").EntireRow.Select
    Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromRightOrBelow

Cela vient du fait que je ne peux pas insérer de ligne tout simplement dans le tableau concerné.
J'ai essayé toutes les différentes techniques qui permettent d’effacer les lignes sous le tableau qui aurait pu coincer mais rien n'y fait.
Cela m’énerve d'autant plus que je peux insérer des colonnes.
Connaissez-vous une autre possibilité que je n'aurais pas essayée ?

Second problème :
Lorsque j'initialise un second formulaire grâce à un bouton situé dans un premier formulaire.
Je voudrais que deux TextBox prenne les valeurs de deux cellules donnés.
J'ai essayé beaucoup de proposition comme celle ci-dessous, mais rien ne se passe :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Private Sub devisform_Initialize()
 
With ThisWorkbook.Sheets("Prospects")
    Me.Text1.Value = LaValeur.Range("D6")
    Me.Text2.Value = LaValeur.Range("E6")
End With
 
End Sub

Je fais donc appel à vous et vous remercie d'avance pour vos réponses.

[ARTURO83]

Bonjour,

Pour la 1 (inutile de présélectionner la cellule):

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Range("A11").EntireRow.Insert Shift:=xlDown

Pour la 2:
remplacez Value par Text.

Cdlt

[Vatreni]

Merci de cette réponse rapide,

Mais le même problème d’exécution (1004) s'affiche et me propose le débogueur quand j’exécute la macro avec l'insertion de ligne...
Et malheureusement je n'ai toujours rien avec Text au lieu de Value...

Bonne journée à vous

[ARTURO83]

Essayez ceci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Private Sub userform_Initialize()
    TextBox1.Text = LaValeur.Range("D6")
    TextBox2.Text = LaValeur.Range("E6")
End Sub

Pour l'insertion de ligne, pouvez-vous en insérer une manuellement?

[Vatreni]

Merci ARTURO pour votre patience,

Mais à nouveau je n'ai rien qui s'affiche dans les TextBox avec votre proposition.

Et non manuellement je n'y arrive pas et c'est de la que vient le problème je pense.

Je me permets de vous joindre un exemple vide du fichier sur lequel j'ai ces difficultés et j'ai annoté les lieux des erreurs dans les codes (module 4/macro11 et devisform).

[MarcelG]

Bonjour Vatreni, Bonjour au Forum,

Quelques conseils que, et je m'en excuse, je reprends souvent
- Nommer les contrôles en utilisant un préfixe indiquant sa nature (Txt_Nom, Cbx_Localités)
- Même si elles sont implicites, préciser les propriétés (.Value ou, ici, .[D6])
- Rendre la déclaration des variables obligatoire (Dans le VBE, Menu Outils\Options)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

TextBox1.Text = LaValeur.Range("D6")

A quoi correspond

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Lavaleur

?
S'il s'agit, comme on peut le présumer, d'une feuille de travail alors le nom de variable est mal choisi.
Quand bien même, où et comment cette variable est-elle affectée?