Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
1347 connectés 

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  insérer une ligne en desous d'une autre sous condition

 


 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

insérer une ligne en desous d'une autre sous condition

n°2184689
anouchka25
Posté le 08-04-2013 à 10:31:45  profilanswer
 

Bonjour  
 je vais essayer de mieux expliquer mon problème : en fait j'ai un formulaire sur un userform de saisie d'informations qui doivent s'insérer dans une feuille excel. J'aimerais que si userform.textbox1.value est déjà dans le première colonne de la feuil, alors on insere une ligne juste en dessous de cette ligne contenant la cellule qui contient userform.textbox1.value et ensuite on insère les données du formulaire dans cette ligne. Voici mon code en dessous. Merci beaucoup d'avance !
 
Private Sub CommandButton1_Ajouter_Click()
 
Dim i As Integer, numlign As Integer
numlign = Sheets("Liste" ).Range("A65536" ).End(xlUp).Row
With Sheets("Liste" )
For i = 7 To numlign
If .Cells(i, 1).Value = UserForm2.TextBox1 Then
.Cells(i, 1).Insert Shift:=xlDown
Range("A" & i).Value = UCase(TextBox1.Value)
Range("B" & i).Value = UCase(TextBox2.Value)
Range("C" & i).Value = UCase(TextBox3.Value)
Range("D" & i).Value = UCase(TextBox4.Value)
Range("E" & i).Value = UCase(TextBox5.Value)
Range("F" & i).Value = UCase(TextBox6.Value)
Range("H" & i).Value = UCase(TextBox7.Value)
MsgBox "Données bien enregistrées !"
Exit For
End If
Next
UserForm2.Hide
 
' num = Sheets("Liste" ).Range("TextBox1.Value" ).Insert Shift:=xlDown
'num = a.Insert
End With
 
End Sub

mood
Publicité
Posté le 08-04-2013 à 10:31:45  profilanswer
 

n°2184739
Marc L
Posté le 08-04-2013 à 13:37:51  profilanswer
 

 
           Bonjour.
 
           En fait quelle est la question, la difficulté rencontrée ?
 
           Sinon il y a des lignes qui me plaisent moyen, par exemple la ligne n° …
 
           Ah zut !  Les lignes ne sont pas numérotées en utilisant l'icône de code prévue à cet effet
                        comme indiqué dans les règles du forum !
 
           Indenter le code faciliterait la lecture et donnerait un peu plus envie …
 
           Et puis ouvrir un deuxième sujet pour une même problématique est limite insultant
           pour celui qui a pris la peine de te répondre dans le premier sujet.
 
           On arrête ici et on reprend dans le sujet d'origine …


Message édité par Marc L le 08-04-2013 à 13:41:19
n°2184757
Elmoricq
Modérateur
Posté le 08-04-2013 à 15:47:17  profilanswer
 

Aller à :
  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  insérer une ligne en desous d'une autre sous condition

 

Sujets relatifs
insérer une ligne en desous d'une autre sous condition26 mars : prochain challenge de programmation en ligne CodinGame
Problème mise en ligne de mon site, suis je un boulet ???Extract de terme entre "et" commerciale dans la ligne
[WORD 2010] Sélectionner et déplacer une ligne dans un tableauSupprimer la ligne X d'un fichier txt
problème retour à la ligne 
Plus de sujets relatifs à : insérer une ligne en desous d'une autre sous condition


Copyright © 1997-2022 Hardware.fr SARL (Signaler un contenu illicite / Données personnelles) / Groupe LDLC / Shop HFR