Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Entrée valeur cellule sous tableau mis en forme

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

Lisette

XLDnaute Junior
Bonjour à tous et bonnes fêtes de fin d'année !

J'ai un souci avec le tableau en copie.
Quand je mets une valeur en A10, mon tableau mis en forme est normalement censé s'agrandir pour englober la nouvelle ligne tapée, or cela ne fonctionne plus.
Je peux toujours faire Tab dans la dernière cellule du tableau pour l'agrandir, mais le souci est que je colle des données sous le tableau pour l'alimenter et que je ne peux donc pas faire tab. Je peux aussi l'agrandir par la suite avec les flèches, mais ce fonctionnement n'est pas normal.
D'autant qu'à ma dernière utilisation du fichier, cela fonctionnait.
Pourriez-vous m'aider s'il vous plaît ?

bonne journée à tous
 

Pièces jointes

Bonjour Lisette,
Sauf si je n'ai pas compris votre problème. Lorsque j'écris en A10 le tableau s'agrandit bien automatiquement.
( Je suis sous XL2007)
Etes vous sortie d' XL puis re rentrée ( ou même rebooter pour voir ). Parce que là, tout semble marcher.

 
Bonjour le fil,
Le problème n'est pas lié à la macro.
J'ai testé, elle n'est pas activée lorsqu'on rajoute une ligne, qui pourtant fonctionne bien.
Ce qui est sur c'est que le fichier livré fonctionne. Donc le problème vient d'autre part : XL, options, windows ...
 
Bonjour Lisette, sylvanus.
La procédure VBA n'est pas liée mais elle est pas écrite comme il faut, si elle doit servir dans le futur je l'ai corrigé.

J'ai corrigé :
Votre code ci dessous avant correction.
VB:
Sub CREATION()
'
' CREATION Macro
'
    Application.ScreenUpdating = False
  Range("i4,i5,i6,i7,i8").Copy
    Set Derligne = Sheets("DOCUMENTS ACTIFS").Range("$A$70000").End(xlUp).Offset(1, 0)
    Derligne.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, Transpose:=True
  Sheets("CREATION").Select
MsgBox "Informations enregistées dans l'onglet Documents Actifs", vbOKOnly + vbInformation, "SUCCES"
     Application.ScreenUpdating = True
End Sub

Le code corrigé : ci-dessous.
Les affectations sont cohérentes avec cette nouvelles procédure.
exemple :
- Range("i4,i5,i6,i7,i8").Copy
La copie de la plage se fait sur qu'elle feuille ! CREATION ou DOCUMENTS ACTIFS (Comme il y a plus d'une feuille dans le classeur)
- A présent la copie se fera bien sur la feuille ! CREATION
- FCreat.Range("i4,i5,i6,i7,i8").Copy
- c'est l'idée de cette correction

VB:
Sub CREATION()
'
' CREATION Macro
'
Application.ScreenUpdating = False
'
' Feuille : DOCUMENTS ACTIFS
Dim FdocActif As Worksheet
    Set FdocActif = Worksheets("DOCUMENTS ACTIFS")
Dim Derligne As Range
' Feuille : CREATION
Dim FCreat As Worksheet
    Set FCreat = Worksheets("CREATION")
'
' Feuille : CREATION
    FCreat.Range("i4,i5,i6,i7,i8").Copy
'
' Feuille : DOCUMENTS ACTIFS
    Set Derligne = FdocActif.Range("$A$70000").End(xlUp).Offset(1, 0)
        Derligne.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, Transpose:=True
' Feuille : CREATION
    FCreat.Activate
'
MsgBox "Informations enregistées dans l'onglet Documents Actifs", vbOKOnly + vbInformation, "SUCCES"
'
Application.ScreenUpdating = True
'
End Sub

VBA Corrigé ! = Import valeur de la feuille "CRÉATION" par Copier puis Coller vers la feuille "DOCUMENTS ACTIFS"

pour mémoire : Cette solution est inintéressante.
je ne connaissais pas Utiliser des Segments pour Filtrer les Données : pour info (si besoin)
https://support.office.com/client/f...ue&postJsllMsg=true&maskLevel=20&market=fr-fr

Exemple ci-dessous :


Merci Lisette
Laurent
 

Pièces jointes

Dernière édition:
Dans ce cas, plus simple. Demandez à votre service informatique de vous réinstaller Office;
D'ailleurs ils ont surement une procédure pour le faire, et vous la donnerons ... pour éviter de le faire aux même.

Mais avez vous vérifier que Clic droit dans le coin bas gauche de l'écran, puis Applications et Fonctionnalités est inopérant ?
si accessible, vous recherchez Office/Option avancées/Réparer.

Généralement ils ne vérouillent pas tout.
 
Là si, tout est bloqué... J'ai vérifié et ils demandent un identifiant administrateur, qui n'est bien sur par le mien...
En tous cas, merci beaucoup pour votre aide, je vais essayer le service dépannage, qui est... en Roumanie...
 
Bonjour à tous !
Petit update car j'ai finalement trouvé la solution, qui résidait dans les options !

Fichier
Options
Vérification
Cliquer sur "Options de correction automatique"
Onglet "Mise en forme automatique au cours de la frappe"

Cocher : "Inclure de nouvelles lignes et colonnes dans le tableau"

J'avoue que je ne suis pas honteuse de ne pas être allée dénicher cette option là-dedans !
Par contre, aucune idée sur le pourquoi du comment je l'ai décoché...

En espérant que ça aidera d'autres personnes.
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…