VBA insertion ligne dans tableau Résolu

Question

Bonjour,
    Je voudrais savoir s'il est possible de réaliser une macro pour :  
Tableau de départ sous cette forme
colonne A 
CHIEN 
CHIEN
CHIEN
CHAT 
CHAT
LAPIN

Le but est d'insérer une ligne vierge à chaque fois qu'il y a changement de la valeur de la colonne A
Tableau après macro
CHIEN 
CHIEN
CHIEN
ligne vierge
CHAT 
CHAT
ligne vierge
LAPIN
  
J'ai cherché mais je n'ai pas trouvé de solution.
Merci de votre aide
Linette44

linette44 · Answer

je viens de trouver la formule qui convient en ajoutant le fait qu'elle va chercher des lignes sur la feuille 2 et qu'elle les copie en colonne B à la place de la ligne vierge
    
Sub insertA()
   Dim cellule As Variant

 'se positionne au bas de la colonne et remonte 
   For i = Range("a65536").End(xlUp).Row To 2 Step -1 

'selectionne la ligne lors du changement de valeur et ajoute une ligne en dessous
        If cells(i, 1).Value <> cells(i + 1, 1).Value Then Rows(i + 1).EntireRow.insert Shift:=x1Down

 'va sur la feuille 2 pour copier et sur feuille 1 pour coller
        Sheets("Feuil2").Select
         Rows("6:9").Select
        Selection.Copy
         Sheets("Feuil1").Select
    
    Next

SUITE 1 : Par contre, j'ai un problème la macro n'insère pas de ligne après ma dernière ligne (LAPIN), il n'y a donc pas de copier /coller des cellules de la feuille 2 après LAPIN. Y a-t-il une solution ?

Voici le résultat :
CHIEN
CHIEN
CHIEN
                    GRIS
CHAT
CHAT
                    JAUNE                 
LAPIN

SUITE 2 : Les informations de la feuille 2 (GRIS, ...) ont été collées en colonne B. Je voudrais que les informations de la ligne précédente soit copiées en colonne A
résultat 
CHIEN
CHIEN
CHIEN
CHIEN       GRIS
CHAT
CHAT
CHAT         JAUNE
etc.....
En espérant trouver de l'aide
Linette44

nus · Answer

bonjour à tous

je souhaiterais savoir si il existe une macro pour autoriser l'utilisation d'un classeur excel par plusieurs et une fois le fichier enregistrer insérer automatiquement les lignes qui ont étaient saisies par d'autre personne.

merci

nus · Answer

Bonjour,

j'ai toujours un problème avec mon userform
quand je clique sur le bouton affecté à la macro sur ma feuille de calcul, pas de problème le userform apparaît mais quand je le remplis et que je valide avec un bouton, rien ne s'inscrit dans ma feuille car je veux que les infos du userform s'inscrive dans une ligne. actuellement les données sont rentrées directement dans la feuille excel mais mon chef préfère une userform. comment je peux régler ce problème. j'aimerai vous poster le fichier mais c'est confidentiel!!

merci

nus · Answer

bonjour à tous

j'ai crée un userform et lorsque je valide avec mon bouton OK, tous les données de mon userform n'apparaissent pas sur ma feuille. Je souhaiterai savoir si quelqu'un connait une macro pour que le texte que je rentre par exemple dans la textbox1 s'inscrive dans la case B7. Je cherche également à faire en sorte que si je rempli à nouveau mon userform, les données s'inscrivent à la suite de la dernière complétée dans la feuille

merci d'avance

Ivan-hoe · Answer

Salut Nus, il faut que les instructions nécessaires à la recopie des données de ton userform vers ta feuille excel apparaissent dans le code de ton bouton OK
quelquechose du genre : 

Private Sub BoutonOK_Click()

activesheet.range("b7").value = me.textbox1.value

unload me
End Sub

Sans passer par un userform et des macros, est-ce que ton problème ne pourrait pas être résolu par Excel avec Données/Formulaire ? C'est un formulaire tout prêt qui te permet de remplir ta feuille de données de manière pratique. 

A suivre...

Ivan-hoe · Answer

Alors, 
on est bien d'accord que c'est le 4 de "B4" qu'on aimerait faire varier ? 
on va donc l'appeler i, par exemple. 
Tes instructions deviennent donc : 
Feuil1.Range("B" & i) = affaireComboBox2 
Feuil1.Range("C" & i) = dateEmissionTextBox
etc. 

au début de ta procédure, il faut aussi rajouter les instructions suivantes

Dim i as long
i = range("B4").end(xldown).row +1
'(i prend la valeur du numéro de la dernière ligne de données + 1)

Quand au problème de la formation en entreprise ... c'est un autre débat !! 

A suivre...

Ivan-hoe · Answer

l'objet requis '_worksheet' , ça veut que la feuille n'est pas identifiée.  
Comment s'appelle la feuille dans laquelle tu veux écrire ? 
Transforme la ligne de code comme suit : 
Sheets("Nomdetafeuille").Range("B" & i) = affaireComboBox2.value
est-ce que c'est mieux ?

nus · Answer

salut ivan

je me suis inspiré d'un fichier existant et mis en place le code suivant:

Dim i As Integer
Dim konteur As Integer
Dim NBaction As Integer

'début de programme
NBaction = 4

'comptage des cellules dans l'onglet en_cours
ActiveWorkbook.Worksheets("en_cours").Activate
For konteur = 4 To 4000
If Range(Cells(konteur, 1), Cells(konteur, 1)) <> "" Or Range(Cells(konteur, 2), Cells(konteur, 2)) <> "" Then
NBaction = NBaction + 1
End If
Next konteur

Feuil1.Range("B" & NBaction) = affaireComboBox2
Feuil1.Range("C" & NBaction) = dateEmissionTextBox
Feuil1.Range("D" & NBaction) = origineTextBox
Feuil1.Range("E" & NBaction) = emmetteurTextBox
Feuil1.Range("F" & NBaction) = libelleActionTextBox
Feuil1.Range("G" & NBaction) = respActionComboBox
Feuil1.Range("H" & NBaction) = delaiSouhaiteTextBox
Feuil1.Range("I" & NBaction) = criticiteTextBox
Feuil1.Range("J" & NBaction) = statutComboBox
Feuil1.Range("L" & NBaction) = commentaireTextBox
Feuil1.Range("M" & NBaction) = avancementTextBox

cette fois-ci quand je remplis mon userform, les lignes s'insérent à la suite des autres mais à la fin de mon tableau.
comment faire pour détecter la 1ère ligne vide du tableau (la 4 si je part d'un tableau vide ou alors la nième)!!

merci

et désolé je sais je suis un peu chiant, mais on se renseigne comme on peut

Ivan-hoe · Answer

Bonjour Nus, 
1 - tu n'est pas chiant, tu es persévérant. Nuance. 
2 - tu fais au moins l'effort de chercher par toi-même et de proposer tes propres solutions, c'est très louable
3 - je ne comprends pas pourquoi ça t'écrit les données à la fin de ton tableau. Le code que tu proposes (même s'il est un peu lourd) écrit bien les données en ligne 4,puis 5 puis 6 , etc. 
Vérifie donc si tu n'as pas des cochonneries qui trainent à la fin de ton tableau (genre : des espaces, un point, une lettre, un n'importe quoi qui fait qu'une plage non vide est détectée en fin de tableau)
A suivre !
I.

Ivan-hoe · Answer

Salut Nus, 
je suppose qu'il suffirait d'interrompre ta procédure (avec Exit Sub) après la boîte message qui indique l'erreur et avant l'instruction qui ferme ton userform.
exemple : 
private sub BoutonOK_Click()
if [test sur ton format de dates] then
Msgbox "Erreur sur le format des dates"
Exit Sub
end if

Me.Hide
[suite de ta procédure]

Unload Me
end sub

Pour une réponse plus précise, pourrais-tu envoyer le code que tu utilises ? 
I.

VBA insertion ligne dans tableau

10 réponses

Newsletters