Astuces Excel
  1. Astuces Excel
  3. excel créer une nouvelle feuille si vrai
Intereting Posts
Excel VBA – Comment ignorer les cellules vierges en format conditionnel Changer la couleur de la police pour un char spécifique dans une gamme de cellules Excel VBA / Macro supprime les virgules indésirables du file .txt File open prompt Code fonction ne fonctionne pas – ne sais pas pourquoi Arrêtez excel do-loop jusqu'à Passage du module de feuille variable au formulaire user dans VBA Référencement d'une feuille Excel à partir d'un formulaire Windows dans la personnalisation du niveau de document Erreur 1004: references non valides lors de la création d'un tableau pivot avec vba Besoin d'aide avec la formule Excel 2007 – Beaucoup de mises à jour nombreuses Vérifiez si les champs obligatoires ne sont pas vides avant chaque sauvegarde dans la macro Dans Excel, est-il possible d'avancer rapidement une cellule temporelle d'une minute? Les hyperliens Excel cessent de fonctionner de manière intermittente L'object ActiveSheet n'est pas reconnu sur certains ordinateurs Exportation de table de file Access vers une feuille de calcul Excel avec VBA Réception de l'erreur d'exécution "1004" Erreur définie par l'application ou définie par l'object

excel créer une nouvelle feuille si vrai

J'ai le problème suivant: j'ai une feuille excel avec 5000 lignes et 50 colonnes. je dois copyr et coller des feuilles et exporter des valeurs de cellules spécifiques en ligne dans la première feuille sur cette feuille, mais si la valeur de B1 et B2 est identique, ne créez pas une autre feuille, mais copyz-la dans la même feuille sous la première ligne . J'ai ajouté la condition "07" parce que je ne veux pas que Excel crée 5000 feuilles en un seul process. Jusqu'à présent, j'ai ceci: 

Sub Button1_Click() Dim newsheetname As Ssortingng Dim isometry As Ssortingng Application.ScreenUpdating = False Worksheets("Sheet1").Activate x = 2 Do While Cells(x, 4) <> "" If Cells(x, 1) = "07" Then Sheets(Sheets.Count).Select Cells(33, 2) = Sheet1.Cells(x, 4) Cells(33, 28) = Sheet1.Cells(x, 32) End If If Cells(x, 4) <> Cells(x + 1, 4) Then Sheets("template").Copy After:=Sheets(Sheets.Count) ActiveSheet.Name = isometry End If isometry = Sheet1.Cells(x + 1, 4) x = x + 1 Worksheets("Sheet1").Activate Loop End Sub

Je sais que mon "code" est très simple et n'est pas parfait, je commence par VBA. Quelqu'un conseille comment le compléter, je suppose que c'est presque terminé, mais je me manque de la string pour la "nouvelle" feuille, maintenant, j'ai une erreur en disant que je ne peux pas avoir 2 feuilles avec le même nom, bien sûr. Merci 

 Sub Button1_Click() Dim newsheetname As Ssortingng Dim isometry As Ssortingng Dim newSheet As Worksheet Application.ScreenUpdating = False x = 2 'Go down the Sheet1 until we find a blank cell in column 4 Do While Worksheets("Sheet1").Cells(x, 4) <> "" 'If we find the value 07, copy two values to the isometry sheet If Sheet1.Cells(x, 1) = "07" Then isometry = Sheet1.Cells(x, 4) 'create the sheet if it does not exist If Not SheetExists(isometry) Then Sheets("template").Copy After:=Sheets(Sheets.Count) Sheets(Sheets.Count).Name = isometry End If 'Copy our data Sheets(isometry).Cells(33, 2) = Sheet1.Cells(x, 4) Sheets(isometry).Cells(33, 28) = Sheet1.Cells(x, 32) End If 'Move on to the next row x = x + 1 Loop Application.ScreenUpdating = True End Sub Function SheetExists(isometry) As Boolean Dim exists As Boolean exists = False For Each Sheet In Worksheets If Sheet.Name = isometry Then exists = True Exit For End If Next SheetExists = exists End Function